Выполнить с правами root [решено]

[giao]

Привет всем,
не могу из фпц выполнить комманду с правами root'a. код по аналогии с lazarus wiki:

Код: Выделить всё

program project1;

uses process;

var
    AProc: TProcess;
    SudoPassword: String;
begin
  SudoPassword:= 'password' + LineEnding;
  AProc:= TProcess.Create(nil);
  AProc.CommandLine := 'sudo -S ls /root';
  AProc.Options := [poUsePipes, poStderrToOutPut, poWaitOnExit];
  AProc.Execute;
  AProc.Input.Write(SudoPassword[1], Length(SudoPassword));
  AProc.Free;
end.

На выходе - ничего. Если запускаю ./project1, то ничего, а если через sudo ./project1, то выводит содержимое /root. Чего еще не хватает? раньше у меня так работало.
Заранее спасибо

[evb87ar]

Команда, прописанная у вас в коде выполняется совершенно правильно.
ls - это команда вывода файлов на экран.
ls /root - вывод файлов в директории /root

Если вам надо запустить программу, надо писать (при этом файл должен быть помечен как исполняемый):

Код: Выделить всё

sudo '<путь до файла +имя файла>'

Если надо запустить скрипт, то пишете:

Код: Выделить всё

sudo -S sh '<путь до файла +имя файла>'

[giao]

Это все я знаю. Интересует, почему не могу выполнить со своей програмы от рута. Если заменить комманду на ls /home/igor, то работает, а через sudo - фиг.

Добавлено спустя 6 часов 50 минут 30 секунд:
Re: Выполнить с правами root [решено]
заработало. вопрос решен