[vasketsov]

1) Нифига не понял
2) ExitWindowsEx

[fossil]

1) Мне нужно чтобы то что я написал в edit передавалось в командную строку, как это сделать?
Например если я ввел ipconfig то открывалась командная строка и выводила все что нужно.
2) Когда вставляю
ExitWindowsEx(EWX_FORCE + EWX_REBOOT, 0);
ничего не происходит

[s]Исправлено: fossil, 13:35 6-04-2004[/s]

[UZER]

fossil
1)WinExec('explorer cmd /C ipconfig',SW_SHOW);
думаю так...
2)Я так понимаю - система 2000/XP. Нужно дать право на выключение...

Код:

var
  hToken: THandle;
  tkp: TTokenPrivileges;
  ReturnLength: Cardinal;
begin
if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then begin
LookupPrivilegeValue(nil, 'SeShutdownPrivilege',tkp.Privileges[0].Luid);
tkp.PrivilegeCount:=1; // one privelege to set
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength)then

ExitWindowsEx(EWX_POWEROFF, 0)

[Vich]

ShellExecute попробуй из winapi

[fossil]

WinExec('cmd /C ipconfig',SW_SHOW);
Мда работает, и комп тоже выключается...
Но мне нужно чтобы выполнялась команда вводимая в edit, а здесь просто команда выполняется..
WinExec('cmd /C '+peremennaya,SW_SHOW);
не работает...

[s]Исправлено: fossil, 17:53 6-04-2004[/s]

[fossil]

Что-то я не догнал как через ShellExecute. Напиши примерный код.

[UZER]

fossil
Извини, не заметил, где ты это написал

+peremennaya

и сейчас этого не вижу в постах, отправленных тобой ранее...
Чтобы сделать то, что тебе нужно, создаешь переменную

Код:

var
A: string;
begin
A := 'cmd /C '+Edit1.Text

А дальше

Код:

WinExec(pchar(A),SW_SHOW);

[fossil]

ОК! Все работает, спасибо

[UZER]

fossil
Стараюсь