Форум: "Потрепаться";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];
ВнизРабота с рееестром через АПИ. Для тех кто спрашивал... Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c