WinExec

[dima040891]

Добрый день!
Есть нужда отключать компьютер с задержкой используя комндную строку.

WinExec('shutdown -s -t 60',SW_SHOW);

но тут есть недостаток время отключения фиксировано пытаюсь сделать так:

var s:String;
.
.
procedure TForm1.Button5Click(Sender: TObject);
s:='shutdown -s -t 60'
begin
WinExec(PAnsiChar(s),SW_SHOW);
end;
.
.
но не выходит, ни какой ракции...

[Человек_Борща]

WinExec - это вымирающий вид 95ых...
Используйте ShellExecute

[Stilet]

ни какой ракции

Наверное потому, что прав не хватает...
Как вариант: http://delphiworld.narod.ru/base/sched_poweroff.html

[dima040891]

Почему прав?
Вот так же работает:

WinExec('shutdown -s -t 60',SW_SHOW);

Хотелось бы использовать именно WinExec

[Человек_Борща]

Ой поправочка.. это функция ещё со времен 16-битного DOS

Note This function is provided only for compatibility with 16-bit Windows. Applications should use the CreateProcess function.

Думаю в этом и косяк её не работоспособности.