отключить службу или завершить процесс

[krikaved]

Как отключить службу или завершить процесс в Диспетчере задач средствами Delphi?

[Rock-n-Rolla]

OpenProcess + TerminateProcess
юзаем поиск, обсуждалось миллион раз!

[krikaved]

Сообщение от Rock-n-Rolla

OpenProcess + TerminateProcess
юзаем поиск, обсуждалось миллион раз!

Завершить процесс нашел, а как отключить службу?

[Stilet]

Хм... С потолка:

WinExec('cmd /c net stop имяслужбы')

Ну или если винда поновее заменить WinExec на ShellExecute

[Rock-n-Rolla]

Сообщение от krikaved

Завершить процесс нашел, а как отключить службу?

попробуй то, что написал выше Stilet. а вообще служба это такой же процесс как и все остальные, просто если юзать OpenProcess+TerminateProcess, то возни намного больше

[krikaved]

Сообщение от Stilet

Хм... С потолка:

WinExec('cmd /c net stop имяслужбы')

Ну или если винда поновее заменить WinExec на ShellExecute

uses ShellApi
...
procedure TForm1.Button1Click(Sender: TObject);
begin
// отключение службы Центр обновления Windows
ShellExecute('cmd /c net stop wuauserv') 
end;

Пишет ошибку Incompatible types: 'HWND' and 'String'

[Rock-n-Rolla]

у ShellExecute 5 параметров

HINSTANCE ShellExecute(
  __in_opt  HWND hwnd,
  __in_opt  LPCTSTR lpOperation,
  __in      LPCTSTR lpFile,
  __in_opt  LPCTSTR lpParameters,
  __in_opt  LPCTSTR lpDirectory,
  __in      INT nShowCmd
);

[krikaved]

ShellExecute(Form1.Handle, nil, 'cmd /c net stop wuauserv', nil, nil, SW_RESTORE);

Помогите!!! Служба все равно не отключается.

[Rock-n-Rolla]

попробуй так:
ShellExecute(Form1.Handle, 'open', 'cmd /c net stop wuauserv', nil, nil, SW_RESTORE);

[krikaved]

Сообщение от Rock-n-Rolla

попробуй так:
ShellExecute(Form1.Handle, 'open', 'cmd /c net stop wuauserv', nil, nil, SW_RESTORE);

Все равно не выходит. Отдельно сmd запускает, если без "/c net stop wuauserv". А если в cmd написать net stop wuauserv, то служба как мне и нужно перестает работать. Как из Delphi сделать?