Bir exe progragramı parametresiz çalıştırmak.
Function ExecuteExe(FileName : String): Boolean;
Begin
// Result := False; //zzz
ShellExecute(
Application.Handle,
nil,
ConvertStringToPChar(FileName),
nil,
nil,
SW_SHOWNORMAL);
Result := True;
End;
Bir exe progragramı parametre ile çalıştırmak.
Function ExecuteExeParams(
FileName : String;
ParamString : String;
DefaultDir : String): Boolean;
Begin
ShellExecute(
Application.Handle,
nil,
ConvertStringToPChar(FileName),
ConvertStringToPChar(ParamString),
ConvertStringToPChar(DefaultDir),
SW_SHOWNORMAL);
Result := True;
End;