Содержание материала

 

Текст програмки, прячущей саму себя:

 

Code:

program HideProj;

 

uses

windows, messages;

 

function HideProcess(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL; stdcall;

external 'hide.dll';

 

function ProcessMessage(var Msg: TMsg): Boolean;

var

Handled: Boolean;

begin

Result := False;

begin

   Result := True;

   if Msg.Message <> WM_QUIT then

   begin

     Handled := False;

     begin

       TranslateMessage(Msg);

       DispatchMessage(Msg);

     end;

   end

end;

end;

 

procedure ProcessMessages;

var

Msg: TMsg;

begin

while ProcessMessage(Msg) do {loop}

   ;

end;

 

begin

HideProcess(GetCurrentProcessId, false);

while true do

begin

   ProcessMessages;

end;

end.

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить