iNjECTOR كتب :

كود :

function IsRing0DBG(S:string): Boolean; var hFile: Thandle; begin Result := False; hFile := CreateFileA(Pchar(S), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0); if( hFile <> INVALID_HANDLE_VALUE ) then begin CloseHandle(hFile); Result := TRUE; end; end;

هناك Bug بهذه الدالة
[dcc32 Error] GbdItna.pas(64): E2010 Incompatible types: 'PAnsiChar' and 'PWideChar'

Delphi XE3