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

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

Работа с реестром на чистом WINAPI [D7, WinXP]

GRAVIX ©   (2006-03-15 04:02:00) 

Пожалуйста подскажите мне, как средствами WINAPI поставить мою прогу на автозагрузку. Очень вважен размер программы, потому и не хочу использивать Tregistry.

---

GRAVIX   (2006-03-15 23:57:00) [1]

Всем ппасиба! Вы очень мне помогли.

---

VirEx   (2006-03-15 19:17:00) [2]

function read(path,Section:string):variant;
var
 key:hKey;
 dwType, dwKeySize: DWORD;
begin
try
 RegOpenKeyEx( HKEY_CURRENT_USER,PChar(path),0,KEY_READ,key);
 if key=0 then exit;
 dwType:=REG_SZ;
 dwKeySize:=10;
 //=======
 RegQueryValueEx(key,PChar(Section),nil,@dwType,PByte(buff),@dwKeySize);
 result:=Variant(string(buff));
finally
 RegCloseKey(key)
end;
end;

function write(path,Section,Value:string):variant;
var
 key:hKey;
 dwKeySize: DWORD;
begin
try
 RegCreateKeyEx( HKEY_CURRENT_USER,PChar(path), 0, nil,REG_CREATED_NEW_KEY, KEY_ALL_ACCESS, nil, Key, @dwKeySize);
 if key=0 then exit;
 dwKeySize:=10;
 //=======
 buff:=PChar(IntToStr(SelectedNum));
 RegSetValueEx(key,PChar(Section),0,REG_SZ,PChar(Value),10);
finally
 RegCloseKey(key)
end;
end;

---

balepa   (2006-03-15 08:44:00) [3]

http://www.vb.kiev.ua/ref/w32api/showdoc.php?f=regcreatekey
Примеры НА VB но переделать не трудно

---

Наверх