- 博客(3)
- 收藏
- 关注
RSS订阅转载 delphi获取电脑网卡，硬盘，cpu序列号
unit getXlh;interfaceuses windows, Messages, SysUtils;function GetIdeNum: string;function Cpu_GetCpuNum: string;function GetBiosNum: string;implementationtype TCPUID = array[1..4] of Longint;f...
2018-11-02 11:27:00
429
转载 delphi中修改dbgrideh每一行的背景颜色
procedure TForm7.dbgrdh1GetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);begin inherited; if dbgrdh1.SumList.RecNo mod 2 =1 ...
2017-04-12 16:33:00
514
转载 delphi写入文本文件代码
procedure TForm1.btn1Click(Sender: TObject);VarF : Textfile;Str,FileName:String;i:integer;Begin filename:=extractfilepath(application.ExeName)+'/'+formatdatetime('yyyy-mm-dd',now())+'.txt';//按日期保...
2017-04-05 18:00:00
183
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人