摘要:
unit getXlh;interfaceuses windows, Messages, SysUtils;function GetIdeNum: string;function Cpu_GetCpuNum: string;function GetBiosNum: string;implementa 阅读全文
摘要:
procedure TForm7.dbgrdh1GetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);begin inherited 阅读全文
摘要:
procedure TForm1.btn1Click(Sender: TObject);VarF : Textfile;Str,FileName:String;i:integer;Begin filename:=extractfilepath(application.ExeName)+'/'+for 阅读全文