在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…

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…

打开一个配置文件: 打开一个配置文件 操作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(…

windows 10 无法启动 windows update 服务 错误 0x80070005 拒绝访问: 解决方法: 首先重命名系统盘 windows目录下的代号为“SoftwareDistribution”文件夹,然后以管理员身份运行命令提示符并且在页面输入“net stop wuauserv”,处理完成后window更新便可正常开启.…

点击windows 7控制面板中防火墙的“推荐配置”没有反应:打开“服务”,无法启动windows firewall,并报错.  可能很多的win7用户都碰到过这样的一种情况,那就是win7的防火墙打不开. 问题:  1.点击windows 7控制面板中防火墙的“推荐配置”没有反应  2.打开“服务”,无法启动windows firewall,并报错  3.打开“事件查看器”,选择“Windows 日志”-“系统”,找到最近发生的错误,其事件ID为7024,日志内容为“Windows Firew…

在设置窗体中 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…

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…

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(…

问题: 在 本地计算机 无法启动 Windows Installer 服务. 错误代码 14007: 在活动的激活上下文中没有找到任何查找密钥. 这个问题似乎涉及到 Windows Installer 没有正确地在电脑上注册,将 Windows Installer 重新注册即可. 解决办法: 运行下面的命令解决这个问题: %systemroot%\system32\msiexec.exe /unregserver %systemroot%\system32\msiexec.exe /regser…

接着上次写的文章 XP和Win7设置系统自动同步系统时间方法 本文就把故障出现的过程和解决方法一共写下来,希望大家可以看到本文在解决此项服务的思路.大家以后出现类似的问题和问题可以一样使用此类方法解决. 如下图所示,大家自动更新系统时间时,都是这样设置的吧,双击桌面右下角的日期时间,在弹出的［日期和时间 属性］窗口中,单击切换到［Internet时间］选项卡,单击立即更新.一般来说这时就会自动更新成功的提示了. 但是本文这里却提示“在获取最近一次同步状态时出错.RPC服务器不可用”的信息.出现这…