AfxCodeHook Example - Create Process Ex

program CreateProcEx;

uses

  Windows,

  afxCodeHook;

var

  StartInfo: TStartupInfo;

  ProcInfo: TProcessInformation;

  BytesRead, Module, Process, Size: dword;

  Path: array [0..MAX_PATH] of char;

  Data: pointer;

begin

  //get the dll data to inject

  Module := CreateFile(pchar('test.dll'), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

  Size := GetFileSize(Module, nil);

  GetMem(Data, Size);

  ReadFile(Module, Data^, Size, BytesRead, nil);

  CloseHandle(Module);

  //create process and inject

  ZeroMemory(@StartInfo, SizeOf(TStartupInfo));

  StartInfo.cb := SizeOf(TStartupInfo);

  CreateProcessEx(nil, 'notepad.exe', nil, nil, False, 0, nil, nil, StartInfo, ProcInfo, Data);

  Process := ProcInfo.hProcess;

  FreeMem(Data);

  Sleep(3000);

  //kill the process

  TerminateProcess(Process, 0);

end.

library test;

uses

  Windows;

procedure EntryPoint(Reason: dword); stdcall;

begin

  if Reason = DLL_PROCESS_ATTACH then MessageBox(0, 'hi from notepad :)', 'afxCodeHook', 0);

end;

begin

  DLLProc := @EntryPoint;

  EntryPoint(DLL_PROCESS_ATTACH);

end.