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 ?