请高手检验一下：开机自启动的Delphi程序代码！！！

来源：百度知道编辑：UC知道时间：2024/05/27 03:06:29

高手们帮我看看这个代码为什么运行不了~感谢！

unit Capture_main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, registry, WinProcs;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure WMQueryEndSession (var Message: TMessage);
message WM_QUERYENDSESSION ;
end;

var
Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
Reg: Tregistry;
begin
RegisterServiceProcess( GetCurrentProcessID, 1 );
Reg := Tregistry.Create ;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if not reg.KeyExists('SOFTWARE\monitor') then begin
Reg.CreateKey ('SOFTWARE&

win98支持RegisterServiceProcess
NT内核的windows nt/2000/xp/2003不支持~

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Registry;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var reg:tregistry;
begin
reg:=tregistry.create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
reg.WriteString('qq','C:\WINDOWS\system32\qq.exe');
reg.closekey;
reg.free;
end;

end.

请高手检验一下：开机自启动的Delphi程序代码！！！请高手指点开机启动的问题开机启动的问题，请高手指教系统自启动项--请高手指点自启动进程太多，请高手帮忙！怎么消除病毒的开机自启动？ O&O Defrag的开机自启动如何取消QQ的开机自启动开机自启动outlook 开机自启动