(Resolvido) Auto-iniciar

[Aleksander]

Olá colegas, gostaria que meu exe iniciasse junto com o windows, usei o código abaixo, ele criou as chaves mas não funcionou, uso xp sp2 e delphi7.

Grato pela atenção.

unit Uinicio;

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;
  reg:TRegIniFile;
implementation


{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  s,s2:string;
begin
  Reg:=TRegIniFile.Create('Teste');
  S:=ExtractFileDir(Application.ExeName);
  S2:=ExtractFileName(Application.ExeName);
  S:=S+'\'+S2;
  reg.RootKey:=HKEY_USERS;
  reg.Openkey ('\.DEFAULT\Software\Microsoft\Windows\CurrentVersion',false);
  reg.WriteString('Run', 'Prog', s);
end;

end.

Editado Janeiro 28, 2008 por Micheus
Adicionado o delimitador de código [code] [/code]. Lembre-se de utilizá-lo para melhor visualização

[Churc]

Opa

Troque pelo seguinte

begin
with TRegistry.Create do
begin
  RootKey := HKEY_CURRENT_USER;
  try
    Openkey('Software\Microsoft\Windows\CurrentVersion\Run', False);
    WriteString('Prog', ParamStr(0));
  finally
    Closekey;
    Free;
  end;
end;

abracos

[Aleksander]

Churc, funcionou!!!

Muito Obrigado!!

Grande abraço!!