2018年11月2日
delphi获取电脑网卡，硬盘，cpu序列号
摘要： unit getXlh;interfaceuses windows, Messages, SysUtils;function GetIdeNum: string;function Cpu_GetCpuNum: string;function GetBiosNum: string;implementa 阅读全文
posted @ 2018-11-02 11:27 guoguo7325 阅读(940) 评论(0) 推荐(0)
2017年4月12日
delphi中修改dbgrideh每一行的背景颜色
摘要： procedure TForm7.dbgrdh1GetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);begin inherited 阅读全文
posted @ 2017-04-12 16:33 guoguo7325 阅读(1327) 评论(0) 推荐(0)
2017年4月5日
delphi写入文本文件代码
摘要： procedure TForm1.btn1Click(Sender: TObject);VarF : Textfile;Str,FileName:String;i:integer;Begin filename:=extractfilepath(application.ExeName)+'/'+for 阅读全文
posted @ 2017-04-05 18:00 guoguo7325 阅读(176) 评论(0) 推荐(0)