#include "WinIO.h"
#pragma link "WinIo_bc.lib"
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
    bWinIoInitOK = InitializeWinIo();
    if(!bWinIoInitOK)
    {
        Application->MessageBox("不能装载 WinIO 程序!","错误信息",MB_OK|MB_ICONSTOP);
        Application->Terminate();
    }
    InitPortFuncs();
}
//---------------------------------------------------------------------------
__fastcall TForm1::~TForm1()
{
    if(bWinIoInitOK)
        ShutdownWinIo();
}
//---------------------------------------------------------------------------
bool ReadHddParams(unsigned short *params, int pn, int dn)
{
    int i,IdePort[2] = {0x1f0, 0x170}; //primary & secondary IDE Controller
    unsigned char HD_Selection[2]={0xa0,0xb0}; // Master Disk: 1010 0000, Slave Disk: 1011 0000
    unsigned short BasePort = IdePort[pn];
    for(i=0;i<500;i++) //Get HDC Status, wait until HDC not busy
    {
        if((inportb(BasePort+7)&0x80)==0)
            break; //hdc is ready
        Sleep(1);
    }
    if(i>=300)return false; //HDC no response

    outportb(BasePort+6, HD_Selection[dn]); //master or slave hard disk
    outportb(BasePort+7, 0x10); //HDD status
    for(i=0;i<300;i++) //Get HDD Status, wait until HDD not busy
    {
        if((inportb(BasePort+7)&0x80)==0)
            break;
        Sleep(1);
    }
    if(i>=300)return false; //HDC no response
    if(inportb(BasePort+7)!=0x50)return false; //HDD ready: 0101 0000
    outportb(BasePort+6, HD_Selection[dn]); //master or slave hard disk
    outportb(BasePort+7, 0xec); //HDD parameters
    for(i=0;i<300;i++) //wait for parameters retrieved
    {
        if(inportb(BasePort+7)==0x58) //retrieved OK
            break;
        Sleep(1);
    }
    if(i>=300)return false; //parameters retrieved error
    for(i=0;i<256;i++)
        params[i]=inportw(BasePort);
    return true;
}
//---------------------------------------------------------------------------
void WordToStr(unsigned char *s, unsigned short *w, int n) //硬盘参数转成字符串
{
    int i;
    for(i=0; i<n; i++)
    {
        s[i*2] = w[i]>>8;
        s[i*2+1] = w[i]&0x00ff;
    }
    s[i*2]=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    DWORD dwOldProcessP = GetPriorityClass(GetCurrentProcess());
    DWORD dwOldThreadP = GetThreadPriority(GetCurrentThread());
    SetPriorityClass(GetCurrentProcess(), REALTIME_PRIORITY_CLASS);
    SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_TIME_CRITICAL);

    AnsiString idename[2] = {"IDE0","IDE1"}, diskname[2] = {"主盘","从盘"};
    unsigned short params[256]; char Str[256];

    for(int pn=0; pn<2; pn++) //primary or secondary
    for(int dn=0; dn<2; dn++) //master or slave
    {
        Memo1->Lines->Add(idename[pn]+" "+diskname[dn]+":");
        if(ReadHddParams(params,pn,dn))
        {
            WordToStr(Str,params+27,20); Memo1->Lines->Add("型 号: "+AnsiString(Str));
            WordToStr(Str,params+10,10); Memo1->Lines->Add("序 列 号: "+AnsiString(Str));
            WordToStr(Str,params+23, 4); Memo1->Lines->Add("固件版本: "+AnsiString(Str));

            unsigned long LbaCap = *(unsigned long *)(&params[60])/2048;
            unsigned long NomCap = ((unsigned long)(params[1])*(params[3])*(params[6]))/2048;
            Memo1->Lines->Add("容 量: " + AnsiString().sprintf("%lu Mb",LbaCap>NomCap?LbaCap:NomCap));

            Memo1->Lines->Add(AnsiString().sprintf("柱 面 数: %u", params[1]));
            Memo1->Lines->Add(AnsiString().sprintf("磁 头 数: %u", params[3]));
            Memo1->Lines->Add(AnsiString().sprintf("扇 区 数: %u", params[6]));

            bool DMA = params[49]&0x0100; //D8:是否支持DMA
            bool LBA = params[49]&0x0200; //D9:是否支持LBA

            Memo1->Lines->Add(AnsiString().sprintf("缓存容量: %u kb", params[21]>>1));
            Memo1->Lines->Add(AnsiString().sprintf("ECC 字节: %u bytes", params[22]));
            Memo1->Lines->Add(AnsiString().sprintf("LBA 支持: %s", LBA?"是":"否"));
            Memo1->Lines->Add(AnsiString().sprintf("DMA 支持: %s", DMA?"是":"否"));
        }
        else
        {
            Memo1->Lines->Add("没找到硬盘");
        }
        Memo1->Lines->Add("");
    }

    SetThreadPriority(GetCurrentThread(), dwOldThreadP);
    SetPriorityClass(GetCurrentProcess(), dwOldProcessP);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    HANDLE hPhyMem; //char *lpInfo = (char far *)0xf0000L;
    //下面的语句让 0xf0000 地址的 65536 个字节可直接读写
    char *lpInfo = MapPhysToLin((char*)0xf0000,65536,&hPhyMem);
    Memo1->Lines->Add(lpInfo+0xe061); //主板BIOS名称 0xFE061
    Memo1->Lines->Add(lpInfo+0xe091); //主板BIOS版权 0xFE091
    Memo1->Lines->Add(lpInfo+0xfff5); //主板BIOS日期 0xFFFF5
    Memo1->Lines->Add(lpInfo+0xec71); //主板BIOS序列号 0xFEC71
    UnmapPhysicalMemory(hPhyMem, lpInfo);
}
//---------------------------------------------------------------------------