Текущий архив: 2003.10.30;
Скачать: CL | DM;

Вниз

Работа с рееестром через АПИ. Для тех кто спрашивал...   Найти похожие ветки 

← →
Nick Denry ©   (2003-10-11 21:03) [0]

Пример автозапуска:
{****************************** Set_Autostart *********************************}

Function Set_AutoStart(wnd:HWND) : LongBool;
var
RunKey : HKEY;
ExeName : String;
ExeNameBuff : PChar;
Ressult : Cardinal;
Begin
ExeName:=ParamStr(0);
ExeNameBuff:=PChar(ExeName);
Ressult:=SendMessage(GetDlgItem(wnd,id_autostart),BM_GETCHECK,0,0);
if ressult=BST_CHECKED then
begin
RegCreateKey(HKEY_LOCAL_MACHINE,Run_path, RunKey);
RegSetValueEx(RunKey,Transfer_name,0,
REG_SZ,ExeNameBuff,length(ExeName));
RegCloseKey(RunKey);
end
else
begin
Ressult:=RegOpenKeyEx(HKEY_LOCAL_MACHINE,Run_path,0,KEY_ALL_ACCESS,runKey);
if ressult = ERROR_SUCCESS then
begin
regDeleteValue(RunKey,Transfer_name);
RegCloseKey(RunKey);
end
end;
End;

{****************************** Get_Autostart *********************************}
Function Get_AutoStart(wnd:HWND) : LongBool;
var
RunKey : HKEY;
ressult : integer;
Begin
RegOpenKeyEx(HKEY_LOCAL_MACHINE,
Run_path,
0,KEY_ALL_ACCESS,runKey);

ressult:=RegQueryValueEx(RunKey,Transfer_name,nil,0,0,nil);
if ressult = ERROR_SUCCESS then
begin
SendMessage(GetDlgItem(wnd,id_autostart),bm_setcheck,BST_CHECKED,0);
end
else
SendMessage(GetDlgItem(wnd,id_autostart),bm_setcheck,BST_UNCHECKED,0);
RegCloseKey(RunKey);
End;

---

← →
Blackman ©   (2003-10-11 22:36) [1]

Да никто не спрашивал. А чего так длинно ?
Вот посмотри:
http://delphiclub.ru/forums/index.php?act=ST&f=4&t=342&s=25683fd6c47b5ee7b584a5a78d449a86

---

← →
wnew ©   (2003-10-11 22:41) [2]

> Blackman © (11.10.03 22:36) [1]

reg.WriteString( "Software\Microsoft" + "\Windows\CurrentVersion\Run" + sKey + #0, sProgTitle, sCmdLine );
Майкрософт не рекомендует прямое указание путей служебных директорий в файловой системе и ключей в реестре, так-как не исключает, что в последующих версиях виндов они могут измениться.

---

← →
Nick Denry ©   (2003-10-11 22:46) [3]

Блин. Ну вы не спрашивали - не надо гноворить -что ни кто. Я не использовал чат как форум, а в чате попросил XShadow (c) кажется.

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.03 c