Messagebox med timeout

Har du i Delphi 2009 et compiler directive Extended Syntax ?
Det skal være Sat i Delphi 7 for at supportere PChar.

Har du kopieret hele eksemplet ? og dermed faste tekster - eller har du udskiftet med noget variabler af en slags?

Extended syntax er slået til (tror det er default)

Eksemplet er kopieret rimeligt nøjagtigt.

Const
  MB_TIMEDOUT = 32000;

  Function MessageBoxTimeOut(hWnd: HWND; lpText: String; lpCaption: PChar; uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdCall; External user32 name 'MessageBoxTimeoutA';

procedure TfrmMain.btnTestClick(Sender: TObject);
  Var
    iFlags                  : Integer;
begin
  iFlags  := MB_OK or MB_SETFOREGROUND or MB_SYSTEMMODAL or MB_ICONINFORMATION;
  MessageBoxTimeout(Application.Handle, 'Test a timeout of 2 seconds.', 'MessageBoxTimeout Test', iFlags, 0, 2000) ;
end;

Fandt et sted hvor der var nævnt en MessageBoxTimeoutW som bruger en PWideChar i stedet. Det ser ud til at det var det der skulle til for at løse mit issue.

http://edn.embarcadero.com/article/32736

Testede lige i D7...  Eksemplet fungerer fint.

Hvis Huge-string er slået fra, vises dog forkert starttegn på teksten inde i boxen.

Så er det nok unicode delen af Delphi 2009 der får det til at skabe sig. Men som sagt så virker PWideChar udgaven hos mig.

Jeg fandt som sagt en løsning ved at bruge MessageBoxTimeoutW i stedet for.