voici l'unit嶪 et un exemple dans le zip


unit Sice;

interface
 uses SysUtils, Windows;

  function IsSoftIce95Loaded: boolean;
  function IsSoftIceNTLoaded: boolean;

implementation

{-=-=-=-=-=-= Windows 9x =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
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;

{-=-=-=-=-=-= Windows NT =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}  
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; 
end.