2015年4月27日
设置随机启动--《用delphi开发共享软件》-15.1任务管理器
摘要： 在设置窗体中chkAutoStart: TCheckBox;在设置窗体中 chkAutoStart: TCheckBox;procedure TFrmSetup.FormCreate(Sender: TObject);Var s:String; _RootKey: HKEY;_Localkey: S... 阅读全文
posted @ 2015-04-27 18:02 海蓝7 阅读(189) 评论(0) 推荐(0)
实现窗体随着鼠标移动(控件)--《用delphi开发共享软件》-15.1任务管理器
摘要： private //窗体移动；OldPos,NewPos:TPoint;bMove:Boolean;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Inte... 阅读全文
posted @ 2015-04-27 17:32 海蓝7 阅读(353) 评论(0) 推荐(0)
字体和壁纸合并后再更改壁纸--《用delphi开发共享软件》-15.2桌面提示器
摘要： 1 procedure TFrmPlay.mnDeskPicClick(Sender: TObject); 2 Var s:String; i:Integer; 3 begin 4 //s:=Path+'SetPic.exe'; 5 //EnableDebugPrivilege(True)... 阅读全文
posted @ 2015-04-27 16:24 海蓝7 阅读(207) 评论(0) 推荐(0)
启动windows的服务--《用delphi开发共享软件》-15.2桌面提示器
摘要： 在dos 下用命令启动一个服务：NET START "Windows Desktop Reminder" 一下为用delphi启动服务：Function RunProcess(sApp,sPara:String):Boolean;beginZeroMemory(@sStartInfo, sizeof... 阅读全文
posted @ 2015-04-27 15:46 海蓝7 阅读(199) 评论(0) 推荐(0)
《用delphi开发共享软件》-15.2桌面提示器
摘要： 打开一个配置文件：打开一个配置文件操作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;... 阅读全文
posted @ 2015-04-27 12:10 海蓝7 阅读(334) 评论(0) 推荐(0)
delphi 对Tmemo指定的行写入
摘要： mmoMonitor:Tmemo;mmoMonitor.Lines.ValueFromIndex[0]:=aInfo ; 1 procedure TMainForm.LogInfo(aInfo: string; IsShow: Boolean); 2 begin 3 ctsLog.Enter; ... 阅读全文
posted @ 2015-04-27 10:08 海蓝7 阅读(435) 评论(0) 推荐(0)