| 
 | 
 本帖最后由 chiannet 于 2015-1-26 16:27 编辑  
 
- ......    
 
 -   fbinstexe:=tempdir+'fbinst.exe';
 
 -   atemp:=GetWindowsVersion;  //获取Windows 版本
 
 -   if (pos(atemp,'XP Home Edition')<=0) and (pos(atemp,'XP Professional')<=0) then  //当操作系统不是XP时....
 
 -         with reg do begin
 
 -                       reg:=TRegistry.Create;
 
 -                 RootKey:=HKEY_CURRENT_USER;
 
 -                       if OpenKey('\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers',true) then
 
 -                             begin
 
 -                                       WriteString(fbinstexe,'WINXPSP3 RUNASADMIN');
 
 -                                 CloseKey;
 
 -                            end;
 
 -                       Free;
 
 -         end;
 
 - ......  
 
 
  复制代码 
好吧,我试试加入上面的delphi代码。 |   
 
 
 
 |