3,425
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
BG2WUI 2004-12-23
- 打赏
- 举报
加30分，特别感谢!
gxgyj 2004-12-22
- 打赏
- 举报
这样两贴,你真行!!!
BG2WUI 2004-12-22
- 打赏
- 举报
高手，我昨天才知道InstallShield是可能编程的脚本语言，你的代码我去试试，好用了一定加分!
BG2WUI 2004-12-22
- 打赏
- 举报
哈哈，没办法啊，我是好市民，不想破坏这的规矩。
只是那个其它语言区很冷的样子。
只是那个其它语言区很冷的样子。
老夏Max 2004-12-22
- 打赏
- 举报
学习InstallShield最好到www.installsite.org上面去看看，上面有很多例子！
monica_chouchou 2004-12-22
- 打赏
- 举报
在 IS 5.X中，
function DialogShowSdRegisterUserEx()
NUMBER nResult;
STRING szTitle, szMsg;
begin
svName = "";
svCompany = "";
szTitle = "";
szMsg = "";
Dlg_Register:
nResult = SdRegisterUserEx( szTitle, szMsg, svName, svCompany, svSerial );
if (nResult = NEXT) then
if (StrCompare( svSerial , "DYH425-1234567") != 0) then
MessageBox ( "输入的序列号 "+svSerial+" 不正确！" , WARNING );
goto Dlg_Register;
endif;
endif;
return nResult;
end;
function DialogShowSdRegisterUserEx()
NUMBER nResult;
STRING szTitle, szMsg;
begin
svName = "";
svCompany = "";
szTitle = "";
szMsg = "";
Dlg_Register:
nResult = SdRegisterUserEx( szTitle, szMsg, svName, svCompany, svSerial );
if (nResult = NEXT) then
if (StrCompare( svSerial , "DYH425-1234567") != 0) then
MessageBox ( "输入的序列号 "+svSerial+" 不正确！" , WARNING );
goto Dlg_Register;
endif;
endif;
return nResult;
end;
monica_chouchou 2004-12-22
- 打赏
- 举报
我用 IS8.0,在setup.rul 中把Dlg_SdCustomerInformation中的行删掉，换成
Dlg_SdCustomerInformationEx:
szMsg = "";
szTitle = "";
szSerial = "";
nResult = SdCustomerInformationEx(szTitle, szName, szCompany, szSerial, nUser);
if (nResult = BACK) goto Dlg_SdWelcome;
if (szSerial != "12345") then
MessageBox("Please enter a valid serial number.", WARNING);
goto Dlg_SdCustomerInformationEx;
endif;
还要在声明中加 string szSerial;
就行了
Dlg_SdCustomerInformationEx:
szMsg = "";
szTitle = "";
szSerial = "";
nResult = SdCustomerInformationEx(szTitle, szName, szCompany, szSerial, nUser);
if (nResult = BACK) goto Dlg_SdWelcome;
if (szSerial != "12345") then
MessageBox("Please enter a valid serial number.", WARNING);
goto Dlg_SdCustomerInformationEx;
endif;
还要在声明中加 string szSerial;
就行了
