Para empezar hay que tener claro algo: TProcess no es un emulador de terminal.
TProcess es una clase utilizada para ejecutar y controlar otros procesos ajenos a nuestro programa.
La mayoría de la veces se usa para ejecutar comandos (que son programas) que se ejecutan desde un emulador de terminal, pero se pueden ejecutar también programas con entorno gráfico, es decir, cualquier clase de programas, incluso aquellos que requieren permiso de administrador, como veremos en el ejemplo.
TProcess es un componente "no visual" que está en la pestaña o lengüeta "System" de la barra de componentes de Lazarus. Esta clase se halla definida en la unidad process y forma parte de la FCL (Free Component Library).
function TFmain.LoadList: Boolean;
var
proc:TProcess;
begin
if Assigned(dmiList) then dmiList.Free;
dmiList:=TStringList.Create;
proc:=TProcess.Create(nil);
proc.CommandLine:='pkexec dmidecode';
proc.Options:=proc.Options+[poWaitOnExit, poUsePipes];
proc.Execute;
dmiList.LoadFromStream(proc.Output);
proc.Free;
Result:=dmiList.Count>0;
end;
Esta función es del programa LazDMIDecode y carga una lista con el resultado del comando dmidecode, que requiere contraseña de administrador y es solicitada al usuario anteponiendo el comando pkexec al comando dmidecode. De esta manera el programa nunca sabrá la password y el cuadro de diálogo que la solicita es el nativo del sistema operativo.
Las opciones, desde ya, deben definirse antes de llamar al proceso Execute o seleccionarlas desde el inspector de objetos si se utilizó como componente en un formulario o similar.
La opción poWaitOnExit indica que debe esperar a que finalice el proceso antes de pasar a la instrucción siguiente a proc.Execute.
La opción poUsePipes es para capturar el resultado que se almacena en la propiedad Output de TProcess en un stream. La propiedad Output solo debe utilizarse conjuntamente con la opción poUsePipes y solo si el comando invocado devuelve un resultado, caso contrario ocurrirá un error.
Para finalizar se asigna el stream de proc.Output al stringlist y luego se libera la instancia de TProcess si utilizó como en este ejemplo creándola mediante el constructor de la clase.
Documentación de TProcess:
Interesante. Como una ayuda en el control de procesos, podrían usar mi librería: https://github.com/t-edson/MiConfig
ResponderEliminarRecientemente ha sido actualizada y probada en la última versión de Lazarus.
Edson, un honor que comentes en mi blog. Saludos.
ResponderEliminar