| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запись значения REG_SZ в реестр под XP [D7, WinXP]

ipnet ©   (2004-09-14 17:46:00) 

Надо записать программу в автозагрузку. Выполняю следующие действия:
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 символа пути к программе.
Что исправить надо?

---

ipnet   (2004-09-15 16:58:00) [1]

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

---

beatles_bntu   (2004-09-14 21:01:00) [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;

---

Gero   (2004-09-14 17:57:00) [3]

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

Length, а не SizeOf.

---

Наверх