|
  
|
4#
发表于 2007-4-21 09:01 PM
| 只看该作者
[code]
function InitializeSetup(): Boolean;
var
abcde: Cardinal;
begin
Result := true;
if RegQueryDWordValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Nikon\Capture NX\settings', 'abcde', abcde) then
if abcde = 0 then
begin
Result:= true;
end;
if abcde = 1 then
begin
Result:= False;
MsgBox('梦想吧 Dreams8.CoM', mbInformation, MB_OK);
end;
end; 默认为安装
若发现abcde值为1时跳出对话框并退出安装 |
感谢Baidu,Google,Dreams8给我这次机会!
还要感谢我的爸爸妈妈!
HOHO |
|