Dll-Injection - Notepad

[Crocotronic]

Hello again,
to come into touch with all the brilliant components I tried to inject a simple DLL into Notepad. Here is small code:

Code: Select all

InjectLibrary(FindWindow('notepad',nil),'MsgBox.dll');

It doesn't work (no reaction) The code is probably to easy, right?
Hope you can help me

Greetings,
Crocotronic

[iconic]

FindWindow('notepad',nil) returns a window handle, not a process handle. Use OpenProcess() with the process id of notepad. If you want to convert window handles to owner process handles you can do this

Code: Select all

var
  Wnd: HWND;
  dwPID: DWORD;
  hProcess: THandle;
begin
  Wnd := FindWindowW('notepad', nil);
  GetWindowThreadProcessId(Wnd, dwPID);
  hProcess := OpenProcess(MAXIMUM_ALLOWED, False, dwPID);
  if hProcess <> 0 then
  begin
  InjectLibrary(hProcess, 'Inject.dll');
  CloseHandle(hProcess);
  end;
end;

--Iconic

[Crocotronic]

Thanks a lot!! Works perfect

[madshi]

iconic doing support for me, nice!