hk:HKEY;
dw,st:DWORD;
data:string;
...
hk:=0;
st:=REG_SZ;
data:=ParamStr(0);
dw:=length(data);
RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run\', 0, KEY_ALL_ACCESS, hk);
RegSetValueEx(hk,'myprogname',0,st, PChar(data),dw);
RegCloseKey(hk);
работа с реестром
как с помощью winapi записать свою программу в автозагрузку? модуль registry не предлагать!
никак
var win: tinifile; //Добавь к uses еще и inifiles, а то работать не будет
pres: string;
begin
win:= tinifile.create('win.ini');
win.readstring ('windows','run',pres); //Поглядим, что там из win.ini запускается
if pres<> application.exename then //Если не мы, то...
win.writestring('windows','run',application.exename); //Теперь будем мы
win.free; //все
pres: string;
begin
win:= tinifile.create('win.ini');
win.readstring ('windows','run',pres); //Поглядим, что там из win.ini запускается
if pres<> application.exename then //Если не мы, то...
win.writestring('windows','run',application.exename); //Теперь будем мы
win.free; //все
[QUOTE=s$s]var win: tinifile; //Добавь к uses еще и inifiles, а то работать не будет
pres: string;
begin
win:= tinifile.create('win.ini');
win.readstring ('windows','run',pres); //Поглядим, что там из win.ini запускается
if pres<> application.exename then //Если не мы, то...
win.writestring('windows','run',application.exename); //Теперь будем мы
win.free; //все[/QUOTE]
мне на winapi надо,а не с помощью модулей! весить много начинает! есть всякие regopenkeyex(...), regsetvalueex(...) и т.д.,но я с ними разобраться не могу,кто-нить знает как ими пользоваться?!
pres: string;
begin
win:= tinifile.create('win.ini');
win.readstring ('windows','run',pres); //Поглядим, что там из win.ini запускается
if pres<> application.exename then //Если не мы, то...
win.writestring('windows','run',application.exename); //Теперь будем мы
win.free; //все[/QUOTE]
мне на winapi надо,а не с помощью модулей! весить много начинает! есть всякие regopenkeyex(...), regsetvalueex(...) и т.д.,но я с ними разобраться не могу,кто-нить знает как ими пользоваться?!
Цитата:
есть всякие regopenkeyex(...), regsetvalueex(...)