program HideConsole; {$APPTYPE CONSOLE} uses Windows, SysUtils; var handle: hwnd; i: integer; const title = 'MonAppliConsole'; begin SetConsoleTitle(title); handle := FindWindow(nil, title); if FindCmdLineSwitch('debug', ['-','/'], true) then ShowWindow(handle, SW_SHOW) else ShowWindow(handle, SW_HIDE); //just for tests for i := 0 to 10000 do WriteLn(i:5); end.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question