Pascalban hogy kell megoldani?

A freepascal nem kártékony program írására való. Tanuló nyelv.

Ha mindenféle okosságot akarsz írni, akkor merülj el a C-ben, C++-ban és a WinAPI-ban!

{$MODE DELPHI}

uses

Windows,

SysUtils;

function GetConsoleWindow: HWND; stdcall; external kernel32 name 'GetConsoleWindow';

begin

try

Writeln('Nyomj Enter-t az elrejteshez !');

Readln;

ShowWindow(GetConsoleWindow, SW_HIDE); //Eltuntetjuk

Sleep(5000); // Varunk 5 masodpercet

Writeln('Nyomj Enter-t a kilepeshez !');

ShowWindow(GetConsoleWindow, SW_SHOW); //Megjelenitjuk

Readln;

except

on E: Exception do

Writeln(E.ClassName, ': ', E.Message); //Ha hiba tortenne kiirjuk

end;

end.

A tasklistben ettől még látszik :)