Помогите

[Вырубатель]

Здравствуйте знатоки Delphi 7 помогите мне пожалуйста перевести этот код

Цитата: string NameDLL = "LoaderDLL.dll"; if (BitnostSistem == bit32) { RegistryKey regFirst = Registry.LocalMachine; RegistryKey regsw = regFirst.OpenSubKey("SOFTWARE", true); RegistryKey regmc = regsw.OpenSubKey("Microsoft", true); RegistryKey regwin = regmc.OpenSubKey("Windows NT", true); RegistryKey regcv = regwin.OpenSubKey("CurrentVersion", true); RegistryKey regrun = regcv.OpenSubKey("Windows", true); regrun.SetValue("AppInit_DLLs", NameDLL); regrun.SetValue("LoadAppInit_DLLs", 1, RegistryValueKind.DWord); }

на Delphi 7 буду очень благодарен вам!

[Dimedrol1536]

uses Registry;

//Добавляем запись в реестр
  //32
   Registry := TRegistry.Create;
   Registry.RootKey := HKEY_LOCAL_MACHINE;
   Registry.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows',true);
   Registry.WriteString('AppInit_DLLs','LoaderDLL.dll');
   Registry.CloseKey;
   Registry.Free;

   Registry := TRegistry.Create;
   Registry.RootKey := HKEY_LOCAL_MACHINE;
   Registry.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows',true);
   Registry.WriteInteger('LoadAppInit_DLLs',1);
   Registry.CloseKey;
   Registry.Free;

   //64
   Registry := TRegistry.Create;
   Registry.RootKey := HKEY_LOCAL_MACHINE;
   Registry.OpenKey('\SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion\Windows',true);
   Registry.WriteString('AppInit_DLLs','LoaderDLL.dll');
   Registry.CloseKey;
   Registry.Free;

   Registry := TRegistry.Create;
   Registry.RootKey := HKEY_LOCAL_MACHINE;
   Registry.OpenKey('\SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion\Windows',true);
   Registry.WriteInteger('LoadAppInit_DLLs',1);
   Registry.CloseKey;
   Registry.Free;

[Вырубатель]

Цитата: Сообщение от Dimedrol1536(2) uses Registry; //Добавляем запись в реестр //32 Registry := TRegistry.Create; Registry.RootKey := HKEY_LOCAL_MACHINE; Registry.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows',true); Registry.WriteString('AppInit_DLLs','LoaderDLL.dll'); Registry.CloseKey; Registry.Free; Registry := TRegistry.Create; Registry.RootKey := HKEY_LOCAL_MACHINE; Registry.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows',true); Registry.WriteInteger('LoadAppInit_DLLs',1); Registry.CloseKey; Registry.Free; //64 Registry := TRegistry.Create; Registry.RootKey := HKEY_LOCAL_MACHINE; Registry.OpenKey('\SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion\Windows',true); Registry.WriteString('AppInit_DLLs','LoaderDLL.dll'); Registry.CloseKey; Registry.Free; Registry := TRegistry.Create; Registry.RootKey := HKEY_LOCAL_MACHINE; Registry.OpenKey('\SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion\Windows',true); Registry.WriteInteger('LoadAppInit_DLLs',1); Registry.CloseKey; Registry.Free;

Спасибо тебе огромное можешь мне помочь сделать на Delphi стартинг как у тебя Loader.dll у меня есть буду использовать Loader.dll хэдшота ?

[Tr0y]

можно в пределах одного объекта сделать (читать/писать/перемещаться на другие ветви) и процедура, будет типа:

procedure RegAutoInjectOS;
const
  NameDLL = 'LoaderDLL.dll';
Var
  Registry : TRegistry;
BEGIN
  Registry := TRegistry.Create;
  Try 
   if (BitnostSistem = bit32) then begin
       //32
     Registry.RootKey := HKEY_LOCAL_MACHINE;
     if (Registry.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows',FALSE)) then begin
       Registry.WriteString('AppInit_DLLs',NameDLL);
       Registry.WriteInteger('LoadAppInit_DLLs',1);
       Registry.CloseKey;
     end;
   end;
  if (BitnostSistem = bit64) then begin
       //64
     Registry.RootKey := HKEY_LOCAL_MACHINE;
     if (Registry.OpenKey('\SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion\Windows',FALSE)) then begin
       Registry.WriteString('AppInit_DLLs',NameDLL);
       Registry.WriteInteger('LoadAppInit_DLLs',1);
       Registry.CloseKey;
     end;
   end;
  Finally
    Reg.Free;
  End;
END;

покомпактнее и правильнее(не обязательно в плане производительности на каждый запрос создавать по объекту и разрушать его), ну и напомню, что когда при создании объекта типа TRegistry, по дефолту права KEY_ALL_ACCESS, ах и еще в методе OpenKey(правильнее его тут поменять на OpenKeyReadOnly), второй параметр лучше все же оставить в "false", в противном случае в true - дерево из каталогов создастся и будет болтаться в реестре бесхозной штукой.

Как японял там еще нужно "распознавалку" разрядности системы узнать, чтобы код правильно работал

А вообще не забывай о F1

[Dimedrol1536]

Цитата: Сообщение от Tr0y BitnostSistem

Вот ещё бы это.

[VeTaL_UA]

Цитата: Сообщение от Dimedrol1536(2) Вот ещё бы это.

function IsWow64FS: BOOL;
asm
  xor eax, eax
  cmp fs:[$C0], 0
  setne al
end;

Как видно по асм коду вернёт True, если система 64разрядная. Почему оно работает? Цитата с [Ссылки могут видеть только зарегистрированные пользователи. ]:

Цитата: FS:[0xC0] 4 NT Reserved for Wow64. Contains a pointer to FastSysCall in Wow64.

Более чем развёрнутое объяснение [Ссылки могут видеть только зарегистрированные пользователи. ] в "Best answer".
Хотя сомневаюсь, что кому-то сейчас интересна природа работы функций =/

[Dimedrol1536]

Цитата: Сообщение от VeTaL_UA Хотя сомневаюсь, что кому-то сейчас интересна

Проще не заморачиваться, а создать все ветки в реесте, а винда пусть сама разбирается что ей нужно.

[Dinmaite]

Цитата: Сообщение от Dimedrol1536(2) Проще не заморачиваться, а создать все ветки в реесте, а винда пусть сама разбирается что ей нужно.

Главное потом не ругать винду за глюки.

[VeTaL_UA]

Цитата: Сообщение от Dimedrol1536(2) Проще не заморачиваться, а создать все ветки в реесте, а винда пусть сама разбирается что ей нужно.

Ну насоздавай веток, а потом ещё 15 таких как ты умников появится, а потом 16тый решит по присутствию определённых веток реестра проверить версию шиндовса и его прога пойдёт по неверному пути и начнётся глобальный пипереворот