SYSTEN32_WINDOWS_SOUNDFRIVERPROVIDER'

Delphi

02/06/2010

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.
Tadeu Oliveira

Tadeu Oliveira

Curtidas 0
POSTAR