DiskID32.dll 及使用

procedure TForm1.Button1Click(Sender: TObject); type mychar = array[0..31] of char; type TDiskID32 = Function(var DiskModel,DiskID:mychar):BOOL;stdcall; var Handle : THandle; DiskID32 : TFarproc; model,id : mychar; yn : boolean; begin yn := false; Handle := LoadLibrary('DiskID32.dll'); if Handle <> 0 then try DiskID32 := GetProcAddress(Handle,'DiskID32'); if DiskID32 <> nil then yn := TDiskID32(DiskID32)(model,id); finally FreeLibrary(Handle); end; Edit1.Text:=model+' '+id; if yn then showmessage('获取成功！') else showmessage('获取失败！'); end;