Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Auto-iniciar


Aleksander

Pergunta

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 por Micheus
Adicionado o delimitador de código [code] [/code]. Lembre-se de utilizá-lo para melhor visualização
Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...