有没有办法从共享驱动器上的大型exe执行单元中的代码？

Question

我承认我在这个问题中处于肮脏的技巧领域.

问题:exe部署在共享文件夹上(我从现在开始称之为ShaExe),而不是以某种方式改变部署规则我想在本地缓存文件(我从现在称之为LocExe)并且在启动ShaExe时我终于运行了LocExe.每次修改ShaExe(=更新)时,必须更新LocExe(从ShaExe复制).

不知怎的,我正在研究的是设置这样的东西:

先决条件:LocExe路径是用户\ AppData\Local\MyApp编码路径,因此ShaExe知道LocExe的位置.

1. ShaExe推出

2. ShaExe将其大小与LocExe的大小进行比较,如果不同,它会将ShaExe复制到LocExe上

3. ShaExe使用-skiplauncher命令行参数执行LocExe

4. ShaExe自行终止

何时-skiplauncher使用上述列表中的2 2 4点未执行(这是为了避免执行LocExe和终止应用程序的无限循环)

现在这种方法有效,但瓶颈是(1)因为ShaExe大小是110MB所以不知何故从共享路径启动exe需要时间(即使我不使用该标志{$SetPEFlags IMAGE_FILE_NET_RUN_FROM_SWAP}).

我试图准备一个非常小的版本的ShaExe(基本上没有单位但只有启动器逻辑,最终只有6MB的exe).

对于这个"轻而无用的ShaExe",整个​​过程更快.

我希望(2)(3)和(4)立即执行,这可能与Windows有关吗？

我完全清楚最好的做法是在本地手动复制文件并运行它,或者创建一个简单的启动程序exe,它可以在必要时运行LocExe来执行缓存,但我有一个非常大的客户需要我做这没有改变部署过程.

这就是我在这里寻求专家建议的原因.

这是我的代码(当然简化了,而不是Unit1想象100个单位):

//this is the dpr
program MYProgram;

uses
  Vcl.Forms,
  execache in 'execache.pas',
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  RunCachedExe;
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

//this is the execache unit
unit execache;

interface

uses
  Vcl.Forms,
  Windows,
  ShellAPi,
  sysutils,
  dialogs,
  system.IOUtils;

  procedure RunCachedExe;

implementation

procedure RunCachedExe;

function GetFileSize(const aFilename: String): Int64;
  var
    info: TWin32FileAttributeData;
  begin
    result := -1;
    if NOT GetFileAttributesEx(PWideChar(aFileName), GetFileExInfoStandard, @info) then
      EXIT;
    result := Int64(info.nFileSizeLow) or Int64(info.nFileSizeHigh shl 32);
  end;

var
  CurrentInstanceSize, CachedFileSize, i: integer;
  CachedFilePath, Outs: string;
  SkipLauncher: Boolean;
begin
  SkipLauncher := False;
  for i := 0 to paramcount -1 do
    begin
      if Paramstr(i) = '-SkipLauncher' then
        SkipLauncher := True;
    end;
  if not SkipLauncher then
  begin
    // in this code path is hardcoded, in real life I use a function that calls:
    // SHGetSpecialFolderPath with CSIDL_LOCAL_APPDATA
     CachedFilePath := 'C:\Users\myuser\AppData\Local\MyProject\bincache\MyProject.exe';
     CurrentInstanceSize := GetFileSize(Application.ExeName);
     // this will return -1 if file not found
     CachedFileSize := GetFileSize (CachedFilePath);
     if CachedFileSize <> CurrentInstanceSize then
     begin
       ForceDirectories('C:\Users\myuser\AppData\Local\MyProject\bincache\');
       CopyFile(PChar(Application.ExeName), PCHar(CachedFilePath), False);
     end;
     // launch local exe and close this one
     ShellExecute (0, 'open', PWideChar( CachedFilePath ), PWideChar('-SkipLauncher'), nil, SW_SHOWNORMAL);
     Application.Terminate;
  end;
end;

这段代码使用了其他单元的一些函数,但我可以在execache单元中移动所有函数,如果这有助于加快exe的执行速度.

不知何故,我想只运行一个初始化部分,包含这里描述的逻辑,然后终止应用程序(当ShaExe到位时,基本上意味着何时-skipLauncher不使用).

那么,是否可以只运行一个大的exe文件的初始化逻辑？

我希望我表达自己,谢谢.

Answer 1

无论你有什么代码,你基本上要问的是,是否可以部分加载可执行文件,让它有条件地只执行它包含的部分代码.还是流媒体可执行文件？这些是不可能的,操作系统必须将整个运行时从远程位置连同任何静态依赖项一起提取到本地计算机.即使可执行文件是立即退出.

您可以通过将条件部分分隔为不同的可执行文件来获得所需的行为:启动器.没有任何VCL依赖,你可以让它真的很小.即使这样,更好的选择是在本地运行可执行文件,以检查远程位置是否包含更新版本,因为网络访问更容易出现性能和安全问题.