C++ zu delphi

[Neotracer64]

Delphi-Quellcode:

var
  pOrgPostMessage: Pointer;

function Secure_PostMessageA(hWnd:HWND ;MSG:UINT ;WPARAM: wParam; lPARAM:lParam):BOOL;stdcall;assembler;
asm
  jmp pOrgPostMessage
end;


procedure InitializeSecureApi;
begin
  pOrgPostMessage := Pointer(DWORD(GetProcAddress( GetModuleHandle('user32.dll'), 'PostMessageA'))+5);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  InitializeSecureApi;
  Secure_PostMessageA(Application.Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
end;