26-04-2013, 09:53 PM
كود :
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