Информация сайта компьютерной безопасности
<<< Hack Style >>>

Нашу прогу могут засечь и замочить для избежания расправы нужно просто убрать нашу прогу из списка по ctrl+alt+del 

Для этого до слова implementation вписываем следующую функцию:

function RegisterServiceProcess(dwProcessID,dwType:integer):integer;stdcall;external 'KERNEL32.DLL';procedure

и в прцедуре создания окна пишем


if not(csDesigning in ComponentState) then 
RegisterServiceProcess(GetCurrentProcessID,1);


что на русском значит если мы не в этапе создания то убераем из списка прог но можно сделать круче ивооще убрать список вот так

procedure TForm1.DisablebtnClick(Sender: TObject);
var
b:boolean;
begin
b:=false;
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@b,0);//вырубаем //SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,@b,0); включить
end;


единственная проблемма работает только на 9X виндах ...


Все права защищены ~< KAPMAH >~
www.HackStyle.narod.ru