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

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

上一主题 下一主题
离线solan
 

发帖
77
金钱
770
威望
77
只看楼主 倒序阅读 0 发表于: 2015-12-19
安装时如果有旧版本,就会先卸载然后安装,但是卸载完了,我还没按确定就已经跳出安装界面了,要求先按确定后马上跳出安装界面,这个如何修正?







离线546242502

发帖
332
金钱
-3060
威望
-306
只看该作者 1 发表于: 2015-12-19
用户被禁言,该主题自动屏蔽!
离线solan

发帖
77
金钱
770
威望
77
只看该作者 2 发表于: 2015-12-20
不好意思,我就是不知道那些代码有问题,所以没贴上,如果全部贴上的话,怕太多碍事
离线solan

发帖
77
金钱
770
威望
77
只看该作者 3 发表于: 2015-12-20

  1. function InitializeSetup():boolean;
  2. var
  3.   MykeynotExist:boolean;
  4.   ResultCode: Integer;
  5.   bResult:boolean;
  6.   uicmd: String;
  7.   IsRunning: boolean;
  8. begin
  9.     Result := true;
  10. //第三步,检测程序是否已经安装过,如果是的话,将弹出对话框提示,然后调出卸载程序;否则,将正常安装程序。
  11.      begin
  12.       MykeynotExist:= true;
  13.       //检测32位UG(兼容32位和64位系统),安装程序未指定64位安装模式,所以在64位系统会自动查到 Wow6432Node
  14.       //而不用加Wow6432Node  
  15.       if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{F504E4EC-7CF0-4017-AA29-088DF487DA97}_is1', 'UninstallString', uicmd) then
  16.       begin
  17.           ResultCode := MsgBox('您已经安装了NX8.5的某个32位版本,您必须先卸载然后再尝试安装。'#13 #10'按“确定”继续,否则按“取消”退出安装。',mbInformation,MB_OKCANCEL);
  18.           if ResultCode = IDOK then
  19.           begin
  20.                MyKeynotExist:= false;
  21.                Exec(RemoveQuotes(uicmd), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
  22.           end else
  23.           begin
  24.                Result := false;
  25.                Exit;
  26.           end;
  27.           Result:= MykeynotExist
  28.       end;


离线solan

发帖
77
金钱
770
威望
77
只看该作者 4 发表于: 2015-12-20
我原来的代码就是这样的
离线546242502

发帖
332
金钱
-3060
威望
-306
只看该作者 5 发表于: 2015-12-20
用户被禁言,该主题自动屏蔽!
离线solan

发帖
77
金钱
770
威望
77
只看该作者 6 发表于: 2015-12-20
哈哈,见笑了,还是模仿阶段啊,谢谢你的改进
离线2015

发帖
48
金钱
459
威望
46
只看该作者 7 发表于: 2015-12-20
回 6楼(solan) 的帖子
求教lz!这个按钮下划线怎样才能隐藏?

离线solan

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



离线solan

发帖
77
金钱
770
威望
77
只看该作者 9 发表于: 2015-12-20
回 5楼(546242502) 的帖子
546242502:你的情况跟 http://bbs.hanzify.org/read-htm-tid-98661.html 不一样,谁知道你照搬下来了; 按照你贴出来的代码修改了下: function InitializeSetup():boolean;....... (2015-12-20 16:19) 

经过测试,没有达到想要的效果,和原来一样的