c# – Inno Setup循环浏览文件并注册每个.NET dll
作者:互联网
我正在使用Inno Setup创建一个安装文件,我需要使用regasm.exe文件注册未知数量的.net dll.我知道我可以使用以下代码注册.net dll.
[Run]
Filename: "{dotnet20}\RegAsm.exe"; Parameters: /codebase MyDLL.dll; WorkingDir: {app}; StatusMsg: "Registering Controls."; Flags: runminimized
我的问题是,文件夹中有多个dll,我不知道要注册的每个dll的名称.有没有办法我可以遍历文件夹中的文件并注册其中的每个文件而不知道文件的数量和名称?
请帮忙,
谢谢
解决方法:
我找不到任何会为你注册的旗帜,例如从[Files]部分,所以我写了这个脚本,它应该迭代指定文件夹中的所有* .dll文件,并为每次调用注册工具命令行.请注意,我没有测试过这个脚本,我不确定使用过的命令行及其参数,但基本的想法应该是:
[Code]
function RegisterNetLibraries(const Folder: string): Integer;
var
RegTool: string;
FindRec: TFindRec;
ResultCode: Integer;
begin
// initialize result to 0 processed files
Result := 0;
// expand the path to the registration tool
RegTool := ExpandConstant('{dotnet20}\RegAsm.exe');
// check if the registration tool exists; if not then exit...
if not FileExists(RegTool) then
begin
MsgBox('RegAsm.exe not found!' + #13#10 + RegTool, mbError, MB_OK);
Exit;
end;
// if we've found a *.dll file in the specified folder, then...
if FindFirst(ExpandConstant(Folder + '\*.dll'), FindRec) then
try
// repeat loop for every *.dll file in the specified folder
repeat
// if the iterated item is not a directory named like Dir.dll
if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
begin
// if the execution of the registration tool succeeded, then...
if Exec(RegTool, '/codebase ' + Folder + '\' + FindRec.Name,
ExpandConstant('{app}'), SW_HIDE, ewWaitUntilTerminated,
ResultCode)
then
// increase the returned processed file count
Result := Result + 1
else
// the execution failed, so let's try to show why
SysErrorMessage(ResultCode);
end;
until
// when there no next file item, the loop ends
not FindNext(FindRec);
finally
// release the allocated search resources
FindClose(FindRec);
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
var
Count: Integer;
begin
// if we are at the post installation step, then...
if CurStep = ssPostInstall then
begin
// the RegisterNetLibraries function returns count of processed files,
// don't forget that you must pass expanded constant values
Count := RegisterNetLibraries(ExpandConstant('{app}\Libs'));
// show how many files have been processed
MsgBox(IntToStr(Count) + ' libraries was processed...', mbInformation,
MB_OK);
end;
end;
标签:c,net,visual-studio-2010,dll,inno-setup 来源: https://codeday.me/bug/20190624/1282329.html