Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Ivolg ©   (2006-07-30 17:31) [0]

Вообщем нужно запустить *.bat файл, так как это делает команда "Вылопнить" (Пуск -> Выполнить)...
P.S Функции WinExec и ShellExecute - почему-то непомогают... Помогите пожайлуста.

---

← →
Destroyer ©   (2006-07-30 17:47) [1]

Может запустить командную строку с параметрами?

---

← →
jb   (2006-07-30 17:59) [2]

Действительно не получается и вариант Destroyer © тоже не сробатывает

---

← →
jack128 ©   (2006-07-30 18:06) [3]

function ExecAndWait(const ExeName, Params: string; out ExitCode: Cardinal; Timeout: Cardinal = MaxInt): boolean;
var
 sui: TStartupInfo;
 pi: TProcessInformation;
begin
 ZeroMemory(@sui, SizeOf(sui));
 sui.cb := SizeOf(sui);
 Win32Check(CreateProcess(nil, PChar(""" + ExeName + "" " + Params), nil, nil, False, 0, nil,
   nil, sui, pi));
 try
   CloseHandle(pi.hThread);
   Result := WaitForSingleObject(pi.hProcess, Timeout) = WAIT_OBJECT_0;
   if Result and (@ExitCode <> nil) then
     Win32Check(GetExitCodeProcess(pi.hProcess, ExitCode));
 finally
   CloseHandle(pi.hProcess);
 end;
end;

procedure ExecCommandLine(const Cmd: string);
var
 Dummy: Cardinal;
begin
 ExecAndWait(GetEnvironmentVariable("ComSpec"), "/C " + Cmd, Dummy);
end;

procedure TForm8.FormCreate(Sender: TObject);
begin
 ExecCommandLine("C:\Temp\1.bat");
end;

Всё работает.

---

← →
Ivolg ©   (2006-07-30 18:32) [4]

>jack128

У меня по прежнему нечего неработает (

---

← →
Германн ©   (2006-07-30 20:17) [5]

> У меня по прежнему нечего неработает (
>

Может компьютер выключен?
:-)

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.041 c