запуск bat файла

← →
ancot (2007-04-12 23:08) [0]

всем доброго вечера
может кто подскажет как запустить bat файл из приложения delphi. как я понимаю winexec и shellexecute работают только с exe...

← →
Dmitrij_K (2007-04-12 23:14) [1]

> как я понимаю winexec и shellexecute работают только с exe...

Неправильно понимаешь. Хорошо работает

← →
Германн © (2007-04-13 00:09) [2]

> как я понимаю ... shellexecute работают только с exe

Вы и близко не понимаете со сколькими типами файлов работает ShellExecute! (Правда большинство из них "документы"! Чур, чур меня! :)

← →
delphim (2007-04-13 09:56) [3]

можно, напримерБ так:
где acmd - имя вашего .bat файла
function TForm1.executedCmdShell(acmd: string): Boolean;
var
si: TStartupInfo;
pi: TProcessInformation;
begin
Result := true;
if Length(acmd) = 0 then exit;
try
FillChar(si, SizeOf(si), 0);
si.cb := SizeOf(si);
Result := CreateProcess(
nil, PChar(acmd), nil, nil, true, CREATE_NO_WINDOW, nil, nil, si, pi);
if Result then
WaitForSingleObject(pi.hProcess, INFINITE);
except
Result := false;
end;
if not Result then exit;
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
end;

← →
Плохиш © (2007-04-13 11:19) [4]

> ancot (12.04.07 23:08)

Я тэбэ один тайна открою, эти функции работают не только с файлами...

← →
Пока что юзер © (2007-04-26 11:21) [5]

Помогите юзеру :)
хочу например запустить файл .TXT, прописал:

procedure TForm1.button1Click(Sender: TObject);
begin
shellexecute ("c:\123.txt",1);
end;

ругается пишет
Undecleared identifier: "shellexecute"
это надо что то в user прописать

если можно подробно ПЛЗ.
Жду
СПС.

← →
stakan © (2007-04-26 11:45) [6]

> это надо что то в user прописать
>
> если можно подробно ПЛЗ.
> Жду
> СПС.

Не в user, а в uses. ShellApi.

← →
begin...end © (2007-04-26 11:47) [7]

> Пока что юзер © (26.04.07 11:21) [5]

Прописать надо ShellAPI. Но после этого сразу же возникнет другая ошибка, потому что у ShellExecute 6 параметров, а не 2. Описание функции и параметров см. в справке по API.

stakan
begin...end

Спасибо! :)

← →
sadasd (2007-04-26 14:14) [9]

уж коль пошла такая пьянка....
не подскажите как запустить утилиту виндосовскую ping, из delphi, причем чтобы можно было менять параметры...
парметры:
ping -t localhost
причем вместо localhost из дельфи можно было бы подставить любой ip...
как-то так...
никто не подскажет?

ShellExecute(Handle, "open", "ping", "-t localhost", nil, SW_SHOW);

запуск bat файла Найти похожие ветки