Prozess ohne Nachfrage beenden

[amigage]

Hallo,

ich bin gerade dabei, meine Projekte auf D2009 umzustellen.
Hierbei habe ich Probleme mit der Windows Funktion SendMessageTimeout .

Delphi-Quellcode:

function foo : Boolean;
var
  wnd: HWND;
  DWResult: DWORD;
begin  
    wnd := FindWindow('irgend ein Windowname',NIL);
    if wnd <> 0 then
      if SendMessageTimeout(Wnd, WM_Close, 0, 0, SMTO_NORMAL, 3000, DWResult) = 0 then
        // .....
end;

Bisher hat dieser Aufruf immer funktioniert. Jetzt meckert der Compiler:

Zitat:

"Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen"

Die Erklärung in der Hilfe lautet:

Zitat:

SendMessageTimeout Function
--------------------------------------------------------------------------------
Sends the specified message to one of more windows.

Syntax

LRESULT SendMessageTimeout( HWND hWnd,
UINT Msg,
WPARAM wParam,
LPARAM lParam,
UINT fuFlags,
UINT uTimeout,
PDWORD_PTR lpdwResult
);

Ich scheine etwas zu übersehen, aber was? Wäre über jede Hilfe dankbar.