ich hab ein TProcess mit einer Definition die Funktioniert und möchte nun das Ganze in Executable mit Parameter umsetzen
leider klappt das nicht.
Hier die funktionierende procedure
Code: Alles auswählen
procedure Test;
var
AProcess : TProcess;
begin
AProcess := TProcess.Create(nil);
AProcess.CommandLine := 'sudo bash -c "echo 25 > /sys/class/backlight/pwm-backlight/brightness"';
AProcess.Options := AProcess.Options + [poUsePipes, poWaitOnExit];
try
AProcess.Execute();
finally
AProcess.Free;
end;
end;
Code: Alles auswählen
procedure Test;
var
AProcess : TProcess;
begin
AProcess :=TProcess.Create(nil);
AProcess.Executable := 'sudo';
AProcess.Parameters.Add('bash');
AProcess.Parameters.Add('-c');
AProcess.Parameters.Add('"echo');
AProcess.Parameters.Add('20');
AProcess.Parameters.Add('>');
AProcess.Parameters.Add('/sys/class/backlight/pwm-backlight/brightness"');
AProcess.Options := AProcess.Options + [poUsePipes, poWaitOnExit];
try
AProcess.Execute();
finally
AProcess.Free;
end;
Versuch 2:
Code: Alles auswählen
procedure Test;
var
AProcess : TProcess;
begin
AProcess :=TProcess.Create(nil);
AProcess.Executable := 'lxterminal';
AProcess.Parameters.Add('-e');
AProcess.Parameters.Add('sudo');
AProcess.Parameters.Add('bash');
AProcess.Parameters.Add('-c');
AProcess.Parameters.Add('"echo 25 > /sys/class/backlight/pwm-backlight/brightness"');
AProcess.Options := AProcess.Options + [poUsePipes, poWaitOnExit];
try
AProcess.Execute();
finally
AProcess.Free;
end;
Code: Alles auswählen
procedure Test;
var
AProcess : TProcess;
begin
AProcess :=TProcess.Create(nil);
AProcess.Executable := 'lxterminal';
AProcess.Parameters.Add('-e');
AProcess.Parameters.Add('sudo');
AProcess.Parameters.Add('bash');
AProcess.Parameters.Add('-c');
AProcess.Parameters.Add('"echo ');
AProcess.Parameters.Add('50 ');
AProcess.Parameters.Add('> ');
AProcess.Parameters.Add('/sys/class/backlight/pwm-backlight/brightness"');
AProcess.Options := AProcess.Options + [poUsePipes, poWaitOnExit];
try
AProcess.Execute();
finally
AProcess.Free;
end;
Wie muss ich das Uûmsetzen?