Hi Delphianer
Ich versuche mich gerade etwas mit der Konsole.
Nun würde ich gerne das Konsolefenster unsichtbar machen wenn ich mein Programm ausführe da das schwarze Fenster ja nicht unbedingt schön ist.
Ich habe gelesen das man nur das
{$APPTYPE CONSOLE}
weglassen muss.
Leider funktioniert das bei mir nicht, weiss wer warum das so ist und an was es liegen kann?
Bisher schaut mein Code so aus.
Delphi-Quellcode:
program meinprogi;
{$R *.res}
//{$APPTYPE CONSOLE}
uses
messages, windows;
var
Msg: TMsg;
begin
NoErrMsg := True;
SetErrorMode(SEM_FAILCRITICALERRORS + SEM_NOALIGNMENTFAULTEXCEPT + SEM_NOGPFAULTERRORBOX + SEM_NOOPENFILEERRORBOX);
Randomize;
while true do begin
sleep(10);
PeekMessage(Msg, 0, 0, 0, PM_REMOVE);
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.
Grüsse Zodi