[Adrenalin666]

сохранилось щас протестирую саму работу

[Adrenalin666]

*BRAVO* работает!

[Adrenalin666]

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

[eXplorer]

ээээ.... у командной строки хэндл и есть "Командная строка"...
вроде...

Код:

PostMessage(FindWindow(Nil, 'Командная строка'), WM_QUIT, 0, 0);

[Adrenalin666]

мне проблему с
Undexlared identifier: 'WM_QUIT решить бы кажется там модуль не добавлен

[Adrenalin666]

а окно то вот http://s003.radikal.ru/i202/1009/f8/359e7c1401f9.jpg

[Adrenalin666]

модуль ShellApi есть не пойму что не так

[eXplorer]

блин у меня всё работает... напиши какие у тебя модули подключены...
у тебя есть? Windows, Messages, StdCtrls ?

[Adrenalin666]

Messages, StdCtrls небыло

[eXplorer]

вроде Messages надо

[Adrenalin666]

Postmessage(findwindow(nil,'C:\Window\system32\cmd .exe'),wm_quit,0,0);

эх жаль не закрывает

[Adrenalin666]

а это и ненадо Вобщем спасибо огромное eXplorer, работает

[Asinkrit]

А почему вот так нельзя было сделать:?

Код:

begin
   ShellExecute(0,'open','cmd.exe','/c '+copy(mess,1,length(mess)),'C:\Windows\system32\',SW_SHOW);
   result:=Pchar(' Выполненно! ');
   exit;
end;

[eXplorer]

ааа... незнаю у меня не хочет... ошибка:

[Error] Unit1.pas(31): Incompatible types: 'String' and 'PAnsiChar'

[Adrenalin666]

не верный пример плюс зачемто и вобще чтото вроде функци в функцию