论坛风格切换切换到宽版
  • 6049阅读
  • 13回复

求助:请教一个小问题!! [复制链接]

上一主题 下一主题
离线2015

发帖
48
金钱
459
威望
46
只看该作者 10 发表于: 2015-12-20
回 8楼(solan) 的帖子
solan:为什么要影藏呢?何必这么费劲,你说呢?一定这样也可以做到的。URLLabel.Font.Style := [fsBold]; ....... (2015-12-20 20:12) 

哦,我想这样美观些,非常感谢大神你了!!!
离线546242502

发帖
332
金钱
-3060
威望
-306
只看该作者 11 发表于: 2015-12-21
只按照你给的代码精简了下,没动什么,如果不行,可以这样:
//检测并提示卸载一个软件的 32 位和 64 位
Function InitializeSetup():boolean;
var
ResultCode: Integer;
MykeynotExist:boolean;
uicmd:String;
begin
Result:= False;
MykeynotExist:=True;
if RegQueryStringValue(HKLM32, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{F504E4EC-7CF0-4017-AA29-088DF487DA97}_is1', 'UninstallString', uicmd) then
   begin
   MykeynotExist:= False;
   if MsgBox('您已经安装了NX8.5的某个32位版本,您必须先卸载然后再尝试安装。'#13 #10'按“确定”继续,否则按“取消”退出安装。',mbInformation,MB_OKCANCEL)=IDOK then
     begin
     Exec(RemoveQuotes(uicmd), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
     MykeynotExist:= True;
     end;
   end;
if IsWin64 then
   begin
   if RegQueryStringValue(HKLM64, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{F504E4EC-7CF0-4017-AA29-088DF487DA97}_is1', 'UninstallString', uicmd) then
     begin
     MykeynotExist:= False;
     if MsgBox('您已经安装了NX8.5的某个64位版本,您必须先卸载然后再尝试安装。'#13 #10'按“确定”继续,否则按“取消”退出安装。',mbInformation,MB_OKCANCEL)= IDOK then
       begin
       Exec(RemoveQuotes(uicmd), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
       MykeynotExist:= True;
        end;
      end;
    end;
Result:=MykeynotExist;
end;
离线546242502

发帖
332
金钱
-3060
威望
-306
只看该作者 12 发表于: 2015-12-21
此楼作废
离线solan

发帖
80
金钱
800
威望
80
只看该作者 13 发表于: 2015-12-21
回 11楼(546242502) 的帖子
546242502:只按照你给的代码精简了下,没动什么,如果不行,可以这样: //检测并提示卸载一个软件的 32 位和 64 位Function InitializeSetup():boolean;varResultCode: Integer;....... (2015-12-21 06:08)

辛苦你了,不过,还是老样子。就那样算了,我也不想折腾了,不过还得谢谢你