26-04-2013, 10:39 PM
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
ليست Bug .. النسخ التي تدعم اليونيكود تعتبر PChar = PWideChar
في المثال تم استخدام الدالة CreateFileA يعني يجب استخدام PAnsiChar بدل PChar