以下程式未經驗證:
// 檢查 Windows95 是否有SoftICE 執行中
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;
// 檢查 WindowsNT 是否有SoftICE 執行中
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;
               (
geocities.com/huanlin_tsai)