发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 15.4 发现是否有 SOFTICE在运行
发信站: 哈工大紫丁香 (2000年09月01日17:38:57 星期五), 站内信件

怎样发现是否有 SOFTICE在运行？ 
 ----------一个有意思的话题
I am trying to figure out how can I check if NuMega SoftIce is 
running? Any API calls?

function SoftIce95Running : Boolean;
var
  hFile : THandle;
begin
  Result := False;
  hFile := CreateFile ('\\.\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;

function SoftIceNTRunning : Boolean;
var
  hFile : THandle;
begin
  Result := False;
  hFile := CreateFile ('\\.\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;

 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]