|
本帖最后由 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代码。 |
|