Запись значения REG_SZ в реестр под XP

← →
ipnet © (2004-09-14 17:46) [0]

Надо записать программу в автозагрузку. Выполняю следующие действия:
var
reg: HKEY;
begin
{ занести в реетр ключ для автозагрузки}
RegCreateKeyEx(HKEY_LOCAL_MACHINE,"Software\Microsoft\Windows\CurrentVersion\Run",0,
nil,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,nil,reg,nil);
RegSetValueEx(reg,"Name",0,REG_SZ,PChar(Paramstr(0)),SizeOf(Paramstr(0)));
RegCloseKey(reg);
end
Данный код не работает под XP, записывается только первые 4 символа пути к программе.
Что исправить надо?

← →
Gero © (2004-09-14 17:57) [1]

> RegSetValueEx(reg,"Name",0,REG_SZ,PChar(Paramstr(0)),SizeOf(Paramstr(0)));

Length, а не SizeOf.

← →
beatles_bntu © (2004-09-14 21:01) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
hReg: TRegIniFile;
begin
hReg := TRegIniFile.Create( "" );
hReg.RootKey := HKEY_LOCAL_MACHINE; hReg.WriteString("Software\Microsoft\Windows\CurrentVersion\Run"+"" + #0,"SSS","C:\a.exe");
hReg.destroy;
end;

Спасибо. Там действительно должно быть length а не sizeof

Запись значения REG_SZ в реестр под XP Найти похожие ветки