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

[Luckie]

Dann geh das doch mal in Einzelschritten durch und guck, wo der Fehler liegt, deswegen ist ja die Fehlerbehandlucng mit den if's drinne.

[Blutiger Anfänger]

Hi,
genau das ist ja das Problem, sonst haette ich das auslesen der DLL nicht versucht,
wenn ich das Programm im EinzelschrittModus laufen lasse, werden alle noetigen
Funktionen erfüllt.
Leider erfolgt keine Bildschirmausgabe mit irgendeiner Meldung!
Fehlermeldungen gibt es auch nicht!

[marabu]

Zitat von Blutiger Anfänger:

Leider erfolgt keine Bildschirmausgabe mit irgendeiner Meldung!

It's no bug, it's a feature! Wenn du dir den Dialog bereits einmal verbeten hast, dann liefert der Aufruf nur noch den Default-Wert - es erfolgt dann keine Ausgabe mehr auf deinem Bildschirm.

Unblutige Grüße vom marabu

[Blutiger Anfänger]

hallo Marabu,

vielen Dank fuer die unblutigen Gruesse, aber es hat bisher noch nie eine Bildschirmausgabe stattgefunden, es ei denn, sie erscheint nicht im Vordergrund und nur fuer einen kurzen Moment,
aber das glaube ich nicht.
Vielleicht bin ich einfach nur zu blöde, obwohl ich ja nur den Code von Michael kopiert und in ein
neu erstelltes Formular mit einem Button eingefügt habe.
Nur wenn es bei allen anderen funktioniert, wird es wohl an mir liegen !!

Danke trotzdem
Gruss Opa

[marabu]

Hallo Opa,

schau mal in der Registry nach, ob der Dialog da eingetragen ist:

Code:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\DontShowMeThisDialogAgain

marabu

[Blutiger Anfänger]

Hi Marabu,

nein, der Eintrag ist nicht vorhanden !

[Sprint]

Zitat von Luckie:

Delphi-Quellcode:

{...}
  hLib := LoadLibrary('shlwapi.dll');
  if hLib <> INVALID_HANDLE_VALUE then
{...}

Hinweis: Sollte LoadLibrary fehlschlagen, dann ist der Rückgabewert gleich null. Und nicht $FFFFFFFF (-1).

[Luckie]

Zitat von Sprint:

Hinweis: Sollte LoadLibrary fehlschlagen, dann ist der Rückgabewert gleich null. Und nicht $FFFFFFFF (-1).

Verdammt. Blöde API.

[brechi]

hab auch in einem anderen Post von dir (luckie) gelesen das du auch mal eine dll so geladen hast:

Delphi-Quellcode:

h := GetModuleHandle('bla.dll')
if h = 0 {bzw bei dir INVALIDHANDLEVALUE was aber falsch ist} then
  h := LoadLibrary('bla.dll');

das würde ich auf keinem fall so machen aus dem einfachen grund wenn eine andere dll FreeLibrary('bla.dll') ausführt
die dll freigegeben wird und bei jedem aufruf eines exports später es einen crash gibt

lädt man die dll aber ein 2. mal mit LoadLibrary('bla.dll') dann kann die andere dll ruhig FreeLibrary('bla.dll') machen
solange der "loadcount" nicht 0 ist wird die dll nicht freigegeben und du kannst sie ohne probleme weiterbenutzen

ausserdem ist es kürzer

[Luckie]

Ist ja mittlerweile korrigiert. Aber es ist nochnicht geklärt, warum es bei dem einem Benutzer noch nicht geht.