[Adrenalin666]

а закрыть командную строку я думаю так можно
begin
PostMessage(FindWindow(Nil, 'cmd.exe'), WM_QUIT, 0, 0);
end;
вот только он ругается на WM_QUIT цитирую
Undexlared identifier: 'WM_QUIT'