Fórum SYSTEN32_WINDOWS_SOUNDFRIVERPROVIDER' #378733
02/06/2010
0
No xp quando desejo que o
aplicativo rode assim que o windows seja iniciado eu utilizo o código
abaixo e como ficaria este código no windows vista e no windows 7?
procedure TForm1.FormCreate(Sender: TObject);
var
Registro : TRegistry;
vMenssagem : String;
begin
Registro := TRegistry.Create(KEY_WRITE); // Chama o construtor do objeto
Registro.RootKey := HKEY_LOCAL_MACHINE; //Define a chave raiz
Registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True); //Cria a chave
Registro.WriteString('SYSTEN32_WINDOWS_SOUNDFRIVERPROVIDER','C:\WINDOWS\Aplicativo.exe'); //Grava o endereço da sua aplicação no Registro
Registro.CloseKey; // Fecha a chave e o objeto
Registro.Free;
O aplicativo retorna como mensagem de erro o texto em negrito.
procedure TForm1.FormCreate(Sender: TObject);
var
Registro : TRegistry;
vMenssagem : String;
begin
Registro := TRegistry.Create(KEY_WRITE); // Chama o construtor do objeto
Registro.RootKey := HKEY_LOCAL_MACHINE; //Define a chave raiz
Registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True); //Cria a chave
Registro.WriteString('SYSTEN32_WINDOWS_SOUNDFRIVERPROVIDER','C:\WINDOWS\Aplicativo.exe'); //Grava o endereço da sua aplicação no Registro
Registro.CloseKey; // Fecha a chave e o objeto
Registro.Free;
O aplicativo retorna como mensagem de erro o texto em negrito.
Tadeu Oliveira
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)