unmorphine.dpr

very useful codes by uall,very useful codes by uall,very useful codes by uall,very useful codes by u

program unmorphine;

uses
  windows,
  uallUtil,
  uallHook,
  sysutils;


procedure exemain(s: string);
var
  SUInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
begin
  FillChar(SUInfo.cb,sizeof(SUInfo),#0);
  CreateProcess(pchar(s), nil, NIL, NIL, FALSE, CREATE_SUSPENDED, NIL, NIL, SUInfo, ProcInfo);
  uallHook.InjectLibrary(ProcInfo.dwProcessId,pchar(uallUtil.GetExeDirectory+'dump.dll'));
  Sleep(100);
  ResumeThread(ProcInfo.hThread);
end;

const unm = 'unmorphine';
begin
  if (paramcount > 0) and fileexists(paramstr(1)) then
  begin
    if MessageBox(0,'try to unmorph (programm will started!)',unm,MB_OKCANCEL) = idok then
      exemain(paramstr(1)) else
      MessageBox(0,'arborted by user',unm,MB_OK);
  end else
    MessageBox(0,'no file selected',unm,MB_OK);
end.