Запущен ли Softice?

//SoftIce in W9x
function IsSoftIce95Loaded: boolean;
var
 hFile: Thandle;
begin
 result := false;
 hFile := CreateFileA('\.SICE', GENERIC_READ or GENERIC_WRITE,
  FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING,
  FILE_ATTRIBUTE_NORMAL, 0);
 if (hFile <> INVALID_HANDLE_VALUE) then
 begin
  CloseHandle(hFile);
  result := TRUE;
 end;
end;
// SoftIce in NT OS
function IsSoftIceNTLoaded: boolean;
var
 hFile: Thandle;
begin
 result := false;
 hFile := CreateFileA('\.NTICE', GENERIC_READ or GENERIC_WRITE,
  FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING,
  FILE_ATTRIBUTE_NORMAL, 0);
 if (hFile <> INVALID_HANDLE_VALUE) then
 begin
  CloseHandle(hFile);
  result := TRUE;
 end;
end;
//to detect it
if IsSoftIce95Loaded or IsSoftIceNTLoaded then
 Application.Terminate
  {if you insert a "Nag" (Message telling him he uses SoftIce) then a amatuer cracker w'll find this protection in notime}
 //bestway of using this thing is in "project Unit"

Взято с Delphi Knowledge Base: http://www.baltsoft.com/

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...