各位大俠,請問如何獲取硬盤序列號用DELPHI編寫
解决方案 »
- 软件带mdb数据库, 怎么在没装驱动的电脑下运行?有VCL版的驱动吗?
- 水晶报表能否像QReport一样直接嵌入delphi里面呢?
- 为何ADOQuery执行Append、post后,数据库中没有记录呢?
- sql: 如何计算字段下不同的数值有几条记录?有很多字段。
- 寻找Delphi高手,共同创业
- ADOConnection的ConnectionTimeout不起作用?
- 给定开始日期及相隔天数,求满足条件的下一日期!解决者立刻给分!
- 如何将access和excel中的数据导入到delphi中,在delphi中能直观的看到里面的数据在线等待
- 关于listview的问题
- 急,主从表的问题,在线等候,(已经困扰三天了)
- 如何设置当前打印机
- 请问一下Locate('姓名',‘王’,[loCaseInsensitive])中的[loCaseInsensitive]参数什么意思并且还有什么参数在哪可以有明细的说明
{$IFDEF WIN32}
var
pdw : pDWord;
mc, fl : dword;
{$ENDIF}
begin
{$IfDef WIN32}
New(pdw);
GetVolumeInformation('c:\',nil,0,pdw,mc,fl,nil,0);
Result := pdw^;
dispose(pdw);
{$ELSE}
Result := GetWinFlags;
{$ENDIF}
end;