Перезагрузка проводника

[АлександрDelphi]

Сообщение от Iron Monk

taskkill /F /IM explorer.exe

winexec('taskkill /F /IM explorer.exe', SW_HIDE)

Пойдет так ?
Да и как сделать что бы был перезапуск explorer.exe только в том случае если открыта IDA ?

[Iron Monk]

IDA не единственный дизассемблер. Ото всех будешь скрываться?

[АлександрDelphi]

Сообщение от Iron Monk

IDA не единственный дизассемблер. Ото всех будешь скрываться?

Я знаю что не единственный по возможности скроюсь от всех...
Мне надо просто если запущена IDA например то функция эта работает если нет то нет, а то я код кинул этот

 winexec('taskkill /F /IM explorer.exe', SW_HIDE);

и проводник завершил работу свою
А надо что бы когда запущен процесс IDA или любой другой то этот код winexec('taskkill /F /IM explorer.exe', SW_HIDE); работал)

[Iron Monk]

Код в таймер:

if FindWindow(nil, 'программа') <> 0 then 
winexec('taskkill /F /IM explorer.exe', SW_HIDE);

[АлександрDelphi]

Сообщение от Iron Monk

Код в таймер:

if FindWindow(nil, 'программа') <> 0 then 
winexec('taskkill /F /IM explorer.exe', SW_HIDE);

Спасибо большое

[min@y™]

всё равно не понимаю, как ребут проводника может помочь.

[northener]

Сообщение от min@y™

всё равно не понимаю, как ребут провлдника может помочь.

И не ты один.
ТС'у имхо отвечают только на сам вопрос. А дальше пусть сам разбирается.

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

Мне надо просто если запущена IDA например то функция эта работает если нет то нет, а то я код кинул этот

открою вам секрет. Сам отладчик как правило поддерживает так называемые "плагины", большинство которых направлено как на защиту самого отладчика, так и на скрытие его присутствия в системе, ну и прочие плюшки, типа "расширения функциональности".

И в этом случае, с IDA вам просто не потягаться.
От детей первый раз запустивших мощный дизассемблер может и защититесь, но любой хоть сколько-то разбирающийся быстро спрячет инструмент.

[АлександрDelphi]

Сообщение от Iron Monk

Код в таймер:

if FindWindow(nil, 'программа') <> 0 then 
winexec('taskkill /F /IM explorer.exe', SW_HIDE);

Как мне сделать так же только на выключение c функцией ..

SeShutdownPrivilege

Полный код ..

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  _SHUTDOWN_ACTION = (
    ShutdownNoReboot,
    ShutdownReboot,
    ShutdownPowerOff);
  SHUTDOWN_ACTION = _SHUTDOWN_ACTION;
  TShutdownAction = SHUTDOWN_ACTION;
 
  NTSTATUS = Longint;
  PNTSTATUS = ^NTSTATUS;
  TNTStatus = NTSTATUS;
 
  function  NtShutdownSystem(Action : SHUTDOWN_ACTION): NTSTATUS; stdcall; external 'ntdll.dll';
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var   
  hToken: THandle;
  tkp, prevst: TTokenPrivileges;   
  rl: DWORD;   
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
 
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
  tkp.PrivilegeCount := 1;
  tkp.Privileges[0].Attributes := 2;
 
  AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(prevst), prevst, rl);
 
  NtShutdownSystem(ShutdownPowerOff);
end;
 
end.

[Alex11223]

Да что за полумеры, лучше уж сразу шифруй файлы на компе и вымогай деньги за расшифровку. Или ботнет из компов хацкеров создавай.