![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как можно осуществить в Delphi запуск программ [D7, XP]
Надуев Алексей © (2008-11-29 21:58:00)Приветствую)
Как можно осуществить в Delphi запуск программ так же как и "Выполнить" в пуск меню.
Надуев Алексей (2008-11-30 21:48:00) [21]кто то может такую программу написать??? что бы эмулировать среду cmd?
Anatoly Podgoretsky (2008-11-30 21:35:00) [22]Чукча не читатель.
Сергей М. (2008-11-30 21:11:00) [23]
> как это можно сделать?
см. [1],[4]
Сказка про белого бычка.
Надуев Алексей (2008-11-30 21:07:00) [24]приходит строка S, в ней shutdown -s
ее нужно выполнить... раньше делала через сохраниние команды в файл .bat потом его запускал.
Хотел был сделать запуск без сохранения, как это можно сделать?
В голове венигрет;)
Andy BitOff (2008-11-30 13:20:00) [25]> Надуев Алексей (30.11.08 11:19) [7]
Блин, Алексей, что у вас в голове-то творится? Бардак. Попробуйте как-то систематизировать ваши мысли и привести их более логичному виду.
Тын-Дын (2008-11-30 13:01:00) [26]
> это можно сделать из cmd, так вот, как это сделать без этой
> строки?
См. в Help функции MkDir, CreateDir, ForceDirectories.
Надуев Алексей (2008-11-30 11:19:00) [27]например создать каталог на удаленном компьютере,
mkdir
это можно сделать из cmd, так вот, как это сделать без этой строки?
Тын-Дын (2008-11-30 00:59:00) [28]
> там мы запускае уже существующее приложение.
А у тебя что, приложение ещё не существует? Тогда ЧТО ты собираешься запускать?
Надуев Алексей (2008-11-29 22:37:00) [29]там мы запускае уже существующее приложение.
коротко:
две программы (клиент, сервер)
Приходит строка с командой (s:string;), ее нужно выполнить
как ее выполнить?
ex:
s='shutdown -s'
CodeMaster (2008-11-29 22:26:00) [30]Вот пример запуска программы и ожидания её завершения
var
si : Tstartupinfo;
p : Tprocessinformation;
begin
FillChar( Si, SizeOf( Si ) , 0 );
with Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Application.Minimize;
Createprocess(nil,'notepad.exe',nil,nil,false,
Create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infinite);
Application.Restore;
Надуев Алексей (2008-11-29 22:25:00) [31]Вот такой вопрос:
как можно выполнить команду в delphi как в строке cmd. Не запуская каких либо файлов.
Надуев Алексей (2008-11-29 22:12:00) [32]Можно в примере;)
Amoeba (2008-11-29 22:06:00) [33]ShellExecute, CreateProcess