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

[MathiasSimmack]

XP SP2 geht bei mir. Ich wüsste jetzt aber nicht, warum sich der Index von einem Servicepack zum anderen geändert haben soll. Zumal die Funktion im PSDK XP SP2 auch offen erwähnt wird.

[NicoDE]

Zitat von MathiasSimmack:

XP SP2 geht bei mir. Ich wüsste jetzt aber nicht, warum sich der Index von einem Servicepack zum anderen geändert haben soll. Zumal die Funktion im PSDK XP SP2 auch offen erwähnt wird.

Wiziger Weise taucht die Funktion in den Headern der aktuellen Beta-Versionen des DDK und des PSDK (w2k3r2) nicht auf...

[Luckie]

*grml* Das ist so eine schöbe Funktion, wen nman mal so eine Messagebox braucht. Sich so was selber bastelen ist ja doch etwas umständlich. Und dann scheitert das ganze weil MS zu blöd ist das ganz normal zu implementieren wie jede andere Messagebox auch.

[Blutiger Anfänger]

und noch mal Hallo,

nachdem ich einige Kombinationen mit verschiedenen DLL's ausprobiert habe ,
u.a. hier, dort
wird zwar nicht der aktuelle Fehler beschrieben, aber konnte ja sein, dass
es funktioniert, war nix !!!
Habe dann ein nacktes Sytem neu aufgesetzt, XP SP1, war auch nix !
Soll nur zu Info sein, nicht dass noch jemand das gleiche probiert.
Ansonsten wuerde mich interessieren ob jemand das Programm unter XP SP1,
an's laufen bekommen hat. In dem Fall waere ein Directory - Listing von
Windows\System32 interessant.

Bis dann Opa

[Mephistopheles]

Ich setze mich mal kurz dran. Also es kann schonmal nicht daran liegen, daß die Funktion nicht existiert. Ordinal 187 existiert auch in XP SP1!

[Blutiger Anfänger]

Hi,
es wird aber Ordinal 185 verwendet !!

Gruss OPA

[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

[Blutiger Anfänger]

habe aber jetzt , wie vorhin beschrieben, ein System ganz neu aufgesetzt, reines BS mit SP1!!
Wahrscheinlich IMHO haengt das mit der Abhaengigkeit verschiedener DLL's zusammen,
nur um das herauszufinden muesste ein System mit o.g. Konfiguration laufen, deswegen waere
ja dann ein Listing von Windows\System32 interessant.
Natuerlich kann das auch mit der Kernel32.dll etc.. zusammenhaengen,
nur bin ich da mit meinem Latein am Ende, dies zu analysieren.
So tief gehen meine Betriebssytemkenntnisse LEIDER nicht !
Wenn du eine Loesung finden solltest, um so besser, dann waere allerdings auch der Loesungsweg
(fuer mich) interessant

Gruss OPA

[Blutiger Anfänger]

hoppla,
da warst du wohl schneller,
nur deine Diagnose wurde schon vorher in Erwaegung gezogen, aber wahrscheinlich hast di dir nicht alle Beitraege angeschaut, habe Eingangs beschrieben (ich meine auf Seite 2), dass der Button
auf das OnClick-Ereignis reagiert, allerdings ohne Bildschirmausgabe!
Schade dass du keine Zeit hast das zu analysieren, meine Faehigkeiten reichen da leider nicht aus.

Trotzdem Danke, OPA

[Mephistopheles]

Du meinst den TButton auf einem TForm? Ich hatte ja nichtmal ein Form. Fakt ist, daß die Funktion aufgerufen wird, daß sie existiert und daß es möglich sein sollte daß eine MessageBox ausgegeben wird. Leider konnte ich nirgends eine Doku zu dieser Funktion auftreiben.