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

Question

我承认我在这个问题上处于肮脏的伎俩区域。

问题:exe部署在共享文件夹上(从现在起我称之为ShaExe)，在不更改部署规则的情况下我想在本地缓存该文件(从现在起我称之为LocExe)并且在启动ShaExe时我最终运行LocExe。每次修改 ShaExe(=更新)时，都必须更新 LocExe(从 ShaExe 复制)。

不知何故，我正在研究的是建立这样的东西:

先决条件:LocExe 路径是 user\AppData\Local\MyApp 编码路径，以便 ShaExe 知道 LocExe 的位置。

1. ShaExe 上线

2. ShaExe 将其大小与 LocExe 的大小进行比较，如果不同，则将 ShaExe 复制到 LocExe

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

4. ShaExe 自行终止

当使用-skiplauncher时，上面列表中的点2 3 4不会被执行(这是为了避免执行LocExe并终止应用程序的无限循环)

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

我尝试准备一个非常小的 ShaExe 版本(基本上没有单元构建，但仅包含启动器逻辑，最终形成 6MB 的 exe)。

有了这个“轻量但无用的 ShaExe”，整个​​过程会更快。

我希望立即执行 (2) (3) 和 (4)，这在 Windows 中是否可行？

我完全清楚，最佳实践是在本地手动复制文件并运行它，或者创建一个简单的启动器 exe，在必要时执行运行 LocExe 进行缓存的工作，但我有一个非常大的客户需要我在不更改部署过程的情况下执行此操作。

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

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

//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 依赖，你可以让它变得非常小。即使如此，更好的选择是在本地运行可执行文件以检查远程位置是否包含更新版本，因为网络访问更容易出现性能和安全问题。