Модератор: Модераторы
Function Run_And_Wait (Const CurDir, Param: AnsiString): Integer;
var
P: TProcess;
begin
P := TProcess.Create(Nil);
assert(p <> Nil);
try
P.Options := [poWaitOnExit, poNoConsole];
P.ShowWindow := swoHIDE;
P.CommandLine := Param;
P.CurrentDirectory := CurDir;
try
P.Execute;
Result := P.ExitStatus;
finally
FreeAndNil(P);
end;
except
FreeAndNil(P);
end;
end;
batment писал(а):Как сделать чтобы при нажатии на кнопку запускалось какое-то приложение или вызывалось URL? Интересует решение задачи под Windows.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2