Laut des
PSDK soll die Funktion
SHMessageBoxCheck in der
DLL shlwapi.dll version 5.0 or later enthalten sein. Ich habe auf meinem System die Version 6.irgendwas. Nur leider finde ich die besagte Funktion in der
DLL nicht mit dem Dependece Walker. Und Versuche sie auf "gut Glück" zu importieren:
Delphi-Quellcode:
type
TSHMessageBoxCheck =
function(hWnd: THandle; Text: PChar; Title: PChar;
Tpye: DWORD;
Default: Integer; RegVal: PChar): Integer;
procedure TForm1.Button1Click(Sender: TObject);
var
hLib: THandle;
SHMessageboxCheck: TSHMessageBoxCheck;
begin
hLib := LoadLibrary('
shlwapi.dll');
if hLib <> INVALID_HANDLE_VALUE
then
begin
@SHMessageboxCheck := GetProcAddress(hLib, '
SHMessageBoxCheckA');
if Assigned(SHMessageboxCheck)
then
begin
SHMessageboxCheck(
Handle, '
Test', '
Titel', MB_OK, 0, '
1CD2DD9C-92CB-4931-B03D-E4164D134501');
end
else
RaiseLastOSError;
end;
end;
sind mit der Fehlermeldung:
Zitat:
System Error. Code: 127.
Die angegebene Prozedur wurde nicht gefunden.
fehlgeschlagen.
Dabei dachte ich, sie könnte sie ganz nützlich sein.