摘要:
在设置窗体中chkAutoStart: TCheckBox;在设置窗体中 chkAutoStart: TCheckBox;procedure TFrmSetup.FormCreate(Sender: TObject);Var s:String; _RootKey: HKEY;_Localkey: S... 阅读全文
摘要:
private //窗体移动;OldPos,NewPos:TPoint;bMove:Boolean;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Inte... 阅读全文
摘要:
1 procedure TFrmPlay.mnDeskPicClick(Sender: TObject); 2 Var s:String; i:Integer; 3 begin 4 //s:=Path+'SetPic.exe'; 5 //EnableDebugPrivilege(True)... 阅读全文
摘要:
在dos 下用命令启动一个服务:NET START "Windows Desktop Reminder" 一下为用delphi启动服务:Function RunProcess(sApp,sPara:String):Boolean;beginZeroMemory(@sStartInfo, sizeof... 阅读全文
摘要:
打开一个配置文件:打开一个配置文件操作TStringGrid 1 Procedure EmptyGrid(Var sg:TStringGrid); 2 Var i:Integer; 3 begin 4 for i:=1 to sg.RowCount -1 do 5 sg.Rows[i].clear;... 阅读全文
摘要:
mmoMonitor:Tmemo;mmoMonitor.Lines.ValueFromIndex[0]:=aInfo ; 1 procedure TMainForm.LogInfo(aInfo: string; IsShow: Boolean); 2 begin 3 ctsLog.Enter; ... 阅读全文