Wo ist oder wie heißt die Funktion: SHMessageBoxCheck?

[Waldteufel]

Hi.

Bevor jetzt noch Stunden rumgerätselt wird, bin ich mal so nett und gebe euch den korrekten Code...

Delphi-Quellcode:

program Project1;
{$APPTYPE CONSOLE}
uses
  CommCtrl,
  Windows;

function SHMessageBoxCheckW(hWnd: THandle; Text: PWideChar; Title: PWideChar;
    dwType: DWORD; Default: Integer; RegVal: PChar): Integer; stdcall; external 'shlwapi.dll' index 191;

function GetShellWindow():HWND; stdcall; external 'user32.dll';
begin
  InitCommonControls(); // Initialisieren
  SetLastError(ERROR_SUCCESS); // Letzen Fehler löschen
  if SHMessageBoxCheckW(GetShellWindow(), 'Dies ist nur ein Testtext.', 'Und dies ist der Titel', MB_OK or MB_ICONINFORMATION, IDNO, '2A622957-D0A5-41CA-8571-898247531A2C') = -1 then // Rückgabwert ist -1 bei Fehler
  begin
    Writeln(GetLastError()); // Fehler ausgeben
    Readln;
  end;
end.

//edit : Ein Komma fehlte