regedite yazarken hata...

[The_MeLiX]

program system32 klasöründeki bi programı her windows açılışında çalıştırsın istiyorum fakar regedite sadece program adı yazıyor değişkeni yazmıyor... kodlar aşağıda

Kod: Tümünü seç

var
  SysTime: TSystemTime;
  DateTime: TDateTime;
  S32Klasoru : Array[0..144] of char;
  AppExe :string;

begin
//****************startup************************************
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
if OpenKey ('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true) then
AppExe:= #34+ S32Klasoru + '\synek32.exe' +#34;
WriteString('synek', AppExe);
finally
end;

[lazio]

system32 klasörünü almamışsın.

Kod: Tümünü seç

GetSystemDirectory(S32Klasoru, sizeof(S32Klasoru));

[The_MeLiX]

teşekkürler sorunum çözüldü