lazarus
zdravim, prosim vas poradte mi, aky prikaz mam pouzit v lazaruse (fpc) na to, aby som spustil nejaky prikaz ako z konzoly, a jeho vystup ulozil do nejakej premennej. dakujem
Pre pridávanie komentárov sa musíte prihlásiť.
O Linuxe
Portál
Odporúčame
Podporte nás
Ak sa vám táto stránka páči, môžete nás podporiť tak, že si na vaše stránky umiestnite tento banner.
Náš Twitter tag je #LinuxOSsk
procedure ExecuteApp(CmdLine: string); var AProcess: TProcess; AStringList: TStringList; begin AProcess := TProcess.Create(nil); AStringList := TStringList.Create; AProcess.CommandLine := CmdLine; AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes]; AProcess.Execute; AStringList.LoadFromStream(AProcess.Output); AStringList.SaveToFile('output.txt'); AStringList.Free; AProcess.Free; end; begin ExecuteApp('make'); end.{$mode objfpc} program pokus; uses Process, Classes; procedure ExecuteApp(CmdLine: string); var AProcess: TProcess; AStringList: TStringList; begin AProcess := TProcess.Create(nil); AStringList := TStringList.Create; AProcess.CommandLine := CmdLine; AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes]; AProcess.Execute; AStringList.LoadFromStream(AProcess.Output); AStringList.SaveToFile('output.txt'); AStringList.Free; AProcess.Free; end; begin ExecuteApp('uname -a'); end.