Delphi取SCSi硬盘接口特征字问题

硬盘接口有2种.所以昨天把SCSi接口的硬盘特征字取了下,本来在易语言都写好了,在delphi里面取出来为0,折腾了4个多小时,发现Delphi里要提权

郁闷 易语言里不用提权都可以,提权有个简单的API,源码如下:

function myRtlAdjustPrivilege(
     hwnd1: Integer;
     hwnd2: Integer;
     hwnd3: Integer;
  var hwnd4: Integer):Integer;
stdcall; external 'ntdll.dll' name 'RtlAdjustPrivilege';

function Movdeuggm():Integer;
var j_x:Integer;
begin
    Result:=myRtlAdjustPrivilege(20,1,0,j_x);
end;