Dialog aus Fremder DLL aufrufen

[The-X]

hi folks ;)

ich wollte aus der msgina.dll einen Dialog darstellen, der dort in den Resources vorhanden ist
nur leider funktioniert das vorne und hinten nicht :wall:

Delphi-Quellcode:

program ginadlg;

uses
  Windows, CommCtrl, CommDlg, Messages;

const
  DLG=2210;
  DLL='msgina.dll';
var
  hMSGINA:Cardinal;
  hApp: Cardinal;
  msg: TMsg;

function dlgfunc(hwnd: hwnd; umsg: dword; wparam: wparam; lparam: lparam): bool; stdcall;
begin
result:=true;
  case umsg of
    WM_INITDIALOG: begin
      hApp := hwnd;
    end;
    WM_CLOSE: begin
      EndDialog(hWnd, 0);
      DestroyWindow(hwnd);
      PostQuitMessage(0);
      FreeLibrary(hMSGINA);
    end;
    else result:=false;
  end;
end;

begin
 InitCommonControls;
  hMSGINA:=LoadLibraryEx(DLL, 0, LOAD_LIBRARY_AS_DATAFILE);
  If hMSGINA<>0 Then begin
    if CreateDialog(hMSGINA, MAKEINTRESOURCE(DLG), 0, @DlgFunc)=0 Then
      MessageBox(0,'X','ERROR',0) else begin
        while true do begin
        if not GetMessage(msg, 0, 0, 0) then break;
        if IsDialogMessage(hApp, msg) = FALSE then begin
          TranslateMessage(msg);
          DispatchMessage(msg);
        end;
        end;
      end;
  end;
end.

das programm zeigt weder den Dialog, noch kommt eine fehlermeldung :duck:

[The-X]

*PUUUUUUUUUUUUUUUUUUUUUUUSH*

ich komm da einfach nicht drüber, dass das nicht funktioniert :/

[Luckie]

Was sagt GetLastError? Und was ist das für ein Dialog?

[Sprint]

Zitat:

Zitat von The-X

nur leider funktioniert das vorne und hinten nicht

Nachdem CreateDialog mußt du noch ein ShowWindow aufrufen, sonst wird das Fenster nicht angezeigt.

Delphi-Quellcode:

program Project2;

uses
  Windows, Messages;

function DialogFunc(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
begin

  Result := True;

  case uMsg of
    WM_CLOSE:
      begin
        EndDialog(hWnd, wParam);
        DestroyWindow(hWnd);
      end;
    WM_DESTROY:
        PostQuitMessage(0);
  else
    Result := False;
  end;

end;

var
  Msg: TMsg;
  DlgWnd: HWND;
  LibMod: HMODULE;

begin

  LibMod := LoadLibrary('MSGINA.DLL');
  if LibMod <> 0 then
  begin
    DlgWnd := CreateDialog(LibMod, MakeIntResource(2210), 0, @DialogFunc);
    if IsWindow(DlgWnd) then
    begin
      ShowWindow(DlgWnd, SW_SHOWNORMAL);
      UpdateWindow(DlgWnd);
      while GetMessage(Msg, 0, 0, 0) do
        if not IsDialogMessage(DlgWnd, Msg) then
        begin
          TranslateMessage(Msg);
          DispatchMessage(Msg);
        end;
    end;
    FreeLibrary(LibMod);
  end;

end.

Netter Spruch der da steht. :)


Edit: Hab das jetzt nur unter Windowx XP SP2 getestet.

[Luckie]

Was steht da? Unter 2000 liefert CreateDialog 0 zurück? Ein Screenshot wäre ganz nett.

[Sprint]

Zitat:

Zitat von Luckie

Ein Screenshot wäre ganz nett.

Dein Wunsch ist mir Befehl. :)

[Luckie]

:shock: Was ist denn das für ein Mist? :gruebel:

[mirage228]

Ja, wie geil - Ist das nen Easteregg von MS? :mrgreen:

Den Dialog kenne ich sonst nur von Windows 2003 Server, wo man den Grund für den Herunterfahren des Rechners angeben kann :)

mfG
mirage228

[Luckie]

Wenn es den beim 2003 Server gibt, warum sollte es dann ein Easter Egg sein? Die haben einfach die gleiche DLL genommen, nur das Feature bei XP nicht implementiert oder offen zu gänglich gemacht.

[mirage228]

Zitat:

Zitat von Luckie

Wenn es den beim 2003 Server gibt, warum sollte es dann ein Easter Egg sein?

Schau Dir doch mal den Text an, der oben steht :mrgreen:

mfG
mirage228