ShIvADeSt

Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору вот так примерно Код: procedure SetAutoRun(AutoRun:boolean); var Key :HKEY; ValType WORD; Size,Res WORD; Path :String; begin Path:='Software\Microsoft\Windows\CurrentVersion\Run'; if RegOpenKeyEx(HKEY_CURRENT_USER,PChar(Path),0,KEY_SET_VALUE,Key)<> ERROR_SUCCESS then RegCreateKeyEx(HKEY_CURRENT_USER,PChar(Path),0,nil,0,KEY_SET_VALUE,nil,Key,@Res); ValType:=REG_SZ; Size:=Length(ParamStr(0)); if AutoRun then RegSetValueEx(Key,'KeyFiller',0,ValType,PChar(ParamStr(0)),Size) else RegDeleteValue(Key,'KeyFiller'); RegCloseKey(Key); end; | знакомые ошибки, после попытки создания не проверяем код возврата, а просто пытаемся куда нить писать данные, так как твое Цитата: RegCreateKeyEx (HKEY_CURRENT_USER, "Software\\Microsoft\\Windows\\CurrentVersion\\Run", 0, NULL, 0, KEY_ALL_ACCESS, &sa, &hIndAutoRun, &state ); | пытается создать секцию, причем с полным доступом, а есть он у тебя или нет - хз.
---------- И создал Бог женщину... Существо получилось злобное, но забавное... |
|