domingo, 8 de dezembro de 2013

Iniciando Programa com Windows 7 e 8 No Delphi 7

Iniciando Programa com Windows 7 e 8

1º Add nas Uses "Registry"

2º add um button e coloque o código abaixo.

var
  Reg: TRegistry;
  S: string;
begin
   Reg := TRegistry.Create;
   S:=ExtractFileDir(Application.ExeName)+'\'+ExtractFileName(Application.ExeName);
   Reg.rootkey:=HKEY_CURRENT_USER;
   Reg.Openkey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN',false);
   Reg.WriteString('Nome do Programa aqui',S);
   Reg.closekey;
   Reg.Free;
end;

3º Compila e testa. bom e isso ai meu Skype: fenix.invasion


 

0 Comentários:

Postar um comentário

Você pode utilizar:
<b>NEGRITO</b> | <em>ITÁLICO</em> | <a href="LINK">TEXTO DO LINK</a>