TStdIOProcessExec - Exemples
| TStdIOProcessExec = class (TObject) | Interface de TStdIOProcessExec | Exemples de TStdIOProcessExec |
L'exemple ci-dessous crée une archive 7-zip des fichiers .ini du dossier windows.
var exec := TStdIOProcessExec.Create;
exec.Directory := GetTemporaryFilesPath;
exec.Commandline := '"c:\Program Files\7-zip\7z" a -y "'+GetTemporaryFilesPath+'archive.7z" "c:\windows\*.ini"';
exec.CreateChildProcess;
while exec.IsProcessActive do begin
Sleep(10);
exec.ReadString;
end;
exec.ReadString;
PrintLn(exec.OutPut);
exec.Directory := GetTemporaryFilesPath;
exec.Commandline := '"c:\Program Files\7-zip\7z" a -y "'+GetTemporaryFilesPath+'archive.7z" "c:\windows\*.ini"';
exec.CreateChildProcess;
while exec.IsProcessActive do begin
Sleep(10);
exec.ReadString;
end;
exec.ReadString;
PrintLn(exec.OutPut);