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

[Sprint]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
type
  TFNSHMessageBoxCheck = function(hWnd: HWND; pszText, pszTitle: PChar; uType: UINT;
    iDefault: Integer; pszRegVal: PChar): Integer; stdcall;
var
  SHMessageBoxCheck: TFNSHMessageBoxCheck;
  hLibMod: HMODULE;
begin

  hLibMod := LoadLibrary('shlwapi.dll');
  if hLibMod <> 0 then
  begin
    SHMessageBoxCheck := GetProcAddress(hLibMod, MakeIntResource(185));
    if Assigned(SHMessageBoxCheck) then
      SHMessageBoxCheck(Self.Handle, 'Text', 'Title', MB_OK, 0, '{7C5B82F2-B02E-40DB-AEA4-38B37E6A2591}');
    FreeLibrary(hLibMod);
  end;

end;