Valeu pela ajuda. Era o que eu precisava.
E como removo o registro?
----- Original Message -----
From: Shimon Cesar de Souza Soares
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, January 03, 2007 10:41 AM
Subject: RES: [delphi-br] Inicializar com o Windows
Acho que isso pode te ajudar:
uses registry;
var reg:TRegIniFile;
procedure TForm1.FormCreate(Sender: TObject);
var
s,s2:string;
begin
Reg:=TRegIniFile.Create('LloydSoft');
{HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run}
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', 'Logo', s);
button1.click;
end;
Shimon César de S. Soares
[EMAIL PROTECTED]
Departamento de TI
HDL da Amazônia Ind.Elet. Ltda.
www.hdl.com.br
________________________________
De: delphi-br@yahoogrupos.com.br em nome de willer
Enviada: qua 03/01/07 09:37
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Inicializar com o Windows
Olá pessoal, estou desenvolvendo um sistema que vai rodar em um Servidor de
Automação, ficarão ligados a ela vários dispositovos externos. E gostaria de
saber como faço para colocar no Registro do Windows o meu programa de forma que
ele inicializasse automaticamente a cada vez que o windows fosse carregado. No
servidor roda o Windows XP Professional SP2.
Agradeço desde já.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
__________ Informação do NOD32 IMON 1954 (20070103) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
