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

[Mephistopheles]

So, ich habe Luckies Code ein wenig angepaßt, damit er direkt aufgerufen werden kann. Es gibt allerdings kein OleInitialize o.ä. (falls das notwendig wäre!). Auf W2K läuft der Code tadellos. Auf WXP erscheint keine MessageBox.

Delphi-Quellcode:

program Project1;
{$APPTYPE CONSOLE}
uses
  Windows;

function MessageBoxCheck(hWnd: THandle; Text: PChar; Title: PChar; 
  dwType: DWORD; Default: Integer; RegVal: PChar): Integer; 
type 
  TSHMessageBoxCheck = function(hWnd: THandle; Text: PChar; Title: PChar; 
    dwType: DWORD; Default: Integer; RegVal: PChar): Integer; stdcall; 
var 
  hLib: THandle;
  SHMessageboxCheck: TSHMessageBoxCheck; 
begin 
  hLib := LoadLibrary('shlwapi.dll');
  if hLib <> 0 then 
  begin 
    @SHMessageboxCheck := GetProcAddress(hLib, PChar(185)); 
    if Assigned(SHMessageboxCheck) then 
    begin
      result := SHMessageboxCheck(hWnd, Text, Title, dwType, 0, RegVal); 
    end 
    else 
      result := GetLastError; 
  end 
  else 
    result := GetLastError;
  FreeLibrary(hLib); 
end; 

begin
  MessageBoxCheck(0, 'Dies ist nur ein Testtext.',
    'Und dies ist der Titel', MB_OK or MB_ICONINFORMATION, 0,
    '2A622957-D0A5-41CA-8571-898247531A2C');
end.

Ich bin es mit IDAs Debugger durchgegangen und es wird die Funktion 185 aufgerufen. Danach habe ich mit FileMon und RegMon gecheckt, ob es Rechteprobleme o.ä. gibt, was nicht der Fall war. Entsprechend ist meine Diagnose, daß es sich um ein Problem innerhalb von 185 oder einer der aufgerufenen Funktionen handelt. Da ich aber keine Zeit für eine detaillierte Analyse der Funktion im Debugger habe, muß das wohl jemand anderes übernehmen!

PS: Ordinal 187 war ein Verschreiberling ... ich meinte 185