《用delphi开发共享软件》-15.2桌面提示器

【《用delphi开发共享软件》-15.2桌面提示器】的更多相关文章

启动windows的服务--《用delphi开发共享软件》-15.2桌面提示器

在dos 下用命令启动一个服务:NET START "Windows Desktop Reminder" 一下为用delphi启动服务: Function RunProcess(sApp,sPara:String):Boolean; begin ZeroMemory(@sStartInfo, sizeof(sStartInfo)); SStartInfo.cb := sizeof(sStartInfo); begin SStartInfo.dwX:=0; SStartInfo.dwY…

《用delphi开发共享软件》-15.2桌面提示器

打开一个配置文件: 打开一个配置文件操作TStringGrid Procedure EmptyGrid(Var sg:TStringGrid); Var i:Integer; begin do sg.Rows[i].clear; sg.RowCount :=; end; Procedure SetGridTitle(Var SG:TStringGrid; sTil:array of String); Var i,l,h:integer; begin l:=Low(sTil); h:=High(…

字体和壁纸合并后再更改壁纸--《用delphi开发共享软件》-15.2桌面提示器

procedure TFrmPlay.mnDeskPicClick(Sender: TObject); Var s:String; i:Integer; begin //s:=Path+'SetPic.exe'; //EnableDebugPrivilege(True); //ShellExecute(GetDesktopWindow ,'open',Pchar(s), nil,Pchar(Path),SW_SHow); Exit; i:=sgPic.Row; s:=sgPic.Cells[,i…

软件打开时间、窗体透明度、背景色---《用delphi开发共享软件》-15.1任务管理器

1.计算软件启动了多长时间:用定时器,每分钟触发一次: procedure TFrmMain.tmCheckLegalTimer(Sender: TObject);Var Minutes:LongInt; NewDay:String;begin Minutes:=MyReg.ReadInteger('Minute'); Inc(Minutes); FrmSetUp.lbRunTime.Caption :=Format('%d天 %2.2d小时 %2.2d分钟', [Minutes div 60…

设置随机启动--《用delphi开发共享软件》-15.1任务管理器

在设置窗体中 chkAutoStart: TCheckBox; 在设置窗体中 chkAutoStart: TCheckBox; procedure TFrmSetup.FormCreate(Sender: TObject); Var s:String; _RootKey: HKEY; _Localkey: String; begin {$ifdef Proxy} btnAbout.Enabled :=False; {$endif} _RootKey:=HKEY_LOCAL_MACHINE; _L…

实现窗体随着鼠标移动(控件)--《用delphi开发共享软件》-15.1任务管理器

private //窗体移动: OldPos,NewPos:TPoint; bMove:Boolean; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin bMove:=True; OldPos:=ClientToScreen(Point(X,Y)); end; procedure TForm1.FormMouseMove(…