Problem mit MessageboxTimeout

[DeddyH]

Geht auch etwas kürzer und vor allem korrekter (bei der Ansi-Variante muss das auch PAnsiChar sein):

Delphi-Quellcode:

function MessageBoxTimeOut(hWnd: hWnd; lpText: PChar; lpCaption: PChar;
  uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
  external user32 name
{$IFDEF UNICODE}'MessageBoxTimeoutW'{$ELSE}'MessageBoxTimeoutA'{$ENDIF};
function MessageBoxTimeOutA(hWnd: hWnd; lpText: PAnsiChar; lpCaption: PAnsiChar;
  uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
  external user32 name 'MessageBoxTimeoutA';
function MessageBoxTimeOutW(hWnd: hWnd; lpText: PWideChar; lpCaption: PWideChar;
  uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
  external user32 name 'MessageBoxTimeoutW';