EOSError, Code 1400, Ungültiges Fensterhandle - Kosole

[haui95]

Danke für deine Antwort. Jetzt geht es endlich

Delphi-Quellcode:

program Project1;

uses
  Windows, SysUtils, Classes, XPMan;

{$APPTYPE CONSOLE}

{$R *.RES}

procedure ShowSplashForm; stdcall; external 'splash.dll';

function ConsoleEventProc(CtrlType: DWORD): BOOL; stdcall;
begin
  if (CtrlType = CTRL_CLOSE_EVENT) then
    begin
      exit;
    end;
  Result := True;
end;

begin
  SetConsoleCtrlHandler(@ConsoleEventProc, True);
  try  
    ShowSplashForm;
  except
    exit;
  end;
end.

Könntest du mir vielleicht sagen, wie man diese splash.dll in meinem Beispiel noch anders aufrufen könnte ohne eine Konsole zu verwenden ?