版权声明: 可以任意转载,转载时请务必以超链接形式标明文章原始出处和作者信息。
借着一个朋友要在安装包中启动Outlook的需求,写了一段代码,供有需要者参考。
这里先判断目标机是否安装了Office 2003 Outlook,之后启动。
function OnBegin()
STRING svInstalledPath, szKeyRoot;
NUMBER nvSize, nType;
begin
RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
szKeyRoot = "SOFTWARE\\Microsoft\\Office\\11.0\\Outlook\\InstallRoot";
nType = REGDB_STRING;
if (RegDBKeyExist (szKeyRoot) < 0) then
MessageBox ("RegDBKeyExist failed.", SEVERE);
else
if ( RegDBGetKeyValueEx (szKeyRoot, "Path", nType, svInstalledPath, nvSize) < 0 ) then
MessageBox ("RegDBGetKeyValueEx failed.", SEVERE);
else
LaunchAppAndWait(svInstalledPath + "Outlook.exe", "", NOWAIT);
endif;
endif;
end;
STRING svInstalledPath, szKeyRoot;
NUMBER nvSize, nType;
begin
RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
szKeyRoot = "SOFTWARE\\Microsoft\\Office\\11.0\\Outlook\\InstallRoot";
nType = REGDB_STRING;
if (RegDBKeyExist (szKeyRoot) < 0) then
MessageBox ("RegDBKeyExist failed.", SEVERE);
else
if ( RegDBGetKeyValueEx (szKeyRoot, "Path", nType, svInstalledPath, nvSize) < 0 ) then
MessageBox ("RegDBGetKeyValueEx failed.", SEVERE);
else
LaunchAppAndWait(svInstalledPath + "Outlook.exe", "", NOWAIT);
endif;
endif;
end;
一点分享,在用RegDBGetKeyValueEx读取数据时,在给入的第三个参数中,我直接给了REGDB_STRING,结果编译报错(error C8046),只好先定义了一个NUMBER类型的变量nType,然后将nType给入才通过了编译。