Запуск скрытого CMD из Lazarus.

[Newbie]

Добрый день, помогите пожалуйста

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

program launchprogram;

uses
   Classes, SysUtils, Process;

var
   AProcess: TProcess;

  begin
   AProcess := TProcess.Create(nil);

   AProcess.CommandLine := 'cmd.exe /q /c echo 12345|runas /netonly /user:admin@domain.ru "d:\stduviewer.exe"';

   AProcess.Execute;
   AProcess.Free;
end.     


.

При выполнении он выдает окно cmd.exe вида:
Введите пароль для admin@domain.ru:
Попытка запуска d:\stduviewer.exe от имени пользователя "admin@domain.ru" ...

Как можно его скрыть?

[Mr.Smart]

Пробуем так:

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

   
    ...
    AProcess.StartupOptions:=[suoUseShowWindow];
    AProcess.ShowWindow:=swoHIDE;
    ...


[Newbie]

К сожалению, не работает. Ошибок не выдает, но и окно не скрывает ...

Добавлено спустя 10 минут 28 секунд:
Я как понимаю эта опция скрывает окно TProcess, а на cmd Она влияния не имеет ...

[Padre_Mortius]

AProcess.Options := [poNoConsole]

[Newbie]

тоже уже попробовал - при таком запуске батник не отрабатывается, то есть просит ввести пароль

Добавлено спустя 32 секунды:
ну то есть не батник, а командная строка.

Добавлено спустя 9 минут 46 секунд:
смысл данной проги в том, чтобы запустить файл от имени админа, при этом хотя бы по мнимому скрыть админский пароль.

Добавлено спустя 52 секунды:
ЗЫ может быть есть какой-нибудь альтернативный вариант?