Вызов функций другой программы

[mss]

А ты вообще задавался себе вопросом, что за "ахинею" ты пишешь в строчках

  Inject.PushCommand    := $68;
  inject.PushArgument   := code + $1E;
  inject.CallCommand    := $15FF;
  inject.CallAddr       := code + $16;
  inject.PushExitThread := $68;
  inject.ExitThreadArg  := 0;
  inject.CallExitThread := $15FF;
  inject.CallExitThreadAddr := code + $1A;
  hKernel32 := GetModuleHandle('kernel32.dll');
  inject.AddrLoadLibrary := GetProcAddress(hKernel32, 'LoadLibraryA');
  inject.AddrExitThread  := GetProcAddress(hKernel32, 'ExitThread');
  lstrcpy(@inject.LibraryName, ModulePath);

?

Или содрал откуда-то "на авось" ?

[Larboss]

Этот код я взял из примера JTG (ссылка выше). Однако, другие варианты этого кода тоже не дают результатов.

procedure AttachDllToProcess(pID: integer; LibName: string);
 var
 ThreadID:Cardinal;
 ThreadHndl:THandle;
 AllocBuffer:Pointer;
 BytesWritten:Cardinal;
 ProcAddr:Pointer;
 ExitCode:Cardinal;
 hProcess: integer;
 begin
 hProcess:=OpenProcess(PROCESS_CREATE_THREAD or PROCESS_VM_OPERATION or PROCESS_VM_WRITE, false, pID);
 if (hProcess=0) then
 Exit;

 AllocBuffer:=VirtualAllocEx(hProcess, nil, length(LibName)+1, MEM_COMMIT, PAGE_READWRITE);
 if (AllocBuffer<>nil) then
 WriteProcessMemory(hProcess, AllocBuffer, PChar(LibName), length(LibName)+1, BytesWritten)
 else
 Exit;

 ProcAddr:=GetProcAddress(LoadLibrary(PChar('Kernel32.dll')), PChar('LoadLibraryA'));
 ThreadHndl:=CreateRemoteThread(hProcess, nil, 0, ProcAddr, AllocBuffer, 0, ThreadID);

 WaitForSingleObject(ThreadHndl, INFINITE);
 GetExitCodeThread(ThreadHndl, ExitCode);
 CloseHandle(ThreadHndl);
 VirtualFreeEx(hProcess, AllocBuffer, 0, MEM_RELEASE);
 CloseHandle(hProcess);

 end;

[GunSmoker]

эээ.... а может не код драть надо, а головой думать? Принцип понять?

[Larboss]

Возможно, я очень тупой, не исключаю. Не могли бы указать на мою ошибку?

[GunSmoker]

Ошибка номер 1 - тебе указал на неё mss.

Иными словами, у тебя нет обработки ошибок. Т.е. если что-то идёт не так - нельзя понять, что случилось.

[mss]

может не код драть надо, а головой думать? Принцип понять?

Золотые слова !

[GunSmoker]

Мат-часть: http://www.delphikingdom.ru/asp/view...=1392#Header_1

Пример правильной обработки:

Process := OpenProcess(...);
if Process = 0 then
  RaiseLastOSError;
try
  // работа с процессом
finally
  CloseHandle(Process);
end;

[mss]

Не могли бы указать на мою ошибку?

Функция отличается от процедуры тем что возвращает результат.
ЭТО тебе о чем-то вообще говорит ?

Пример правильной обработки

А еще более кратко и изящней

hProcess := OpenProcess(...);
Win32Check(hProcess <> INVALID_HANDLE)

Ну это, разумеется, на профессионально-любительский взгляд)

[GunSmoker]

Давайте я просуммирую материал, а вы его обещаетесь прочитать и понять.

1. Почему, если кто-то сказал, что этот код у него работает, то это вовсе не означает, что код будет работать у вас.
2. Почему не надо копировать код, а его разбирать.
3. Базовые сведения об обработке ошибок (1.1 и 1.2).
4. Основы программирования на WinAPI в Delphi.
5. Базовые сведения об архитектуре памяти и изоляции процессов в Windows.
6. Дополнение по загруженным исполняемым модулям.
7. Введение в ловушки Windows.
8. Теория по внедрению DLL.
9. Здесь должна быть ссылка по IPC, но у меня нет ничего на примете, за исключением MSDN.

Вот, это необходимый багаж знаний для успешной реализации вашей задачи.

Что, думали, раз книжку "Delphi для чайников за 15 минут" прочитали - уже программист?

Без обид, но мудрый человек берётся за задачи, которые ему по плечу. Изучайте, экспериментируйте. Один маленький шаг за раз. И когда-нибудь эта задача станет для вас элементарной.

[GunSmoker]

А еще более кратко и изящней

Если про Win32Check - таки да, но Win32Check не везде доступна. Я не помню, в какой версии Delphi она появляется и в каком модуле, так что перестраховался.

А насчёт "<> INVALID_HANDLE" - чему INVALID_HANDLE-то равен? В доке написано про 0. INVALID_HANDLE равен 0? Я к тому, что легко спутать с INVALID_HANDLE_VALUE равного -1. Так что уж пусть лучше 0.