在Delphi 7中通过线程加载多个DLL

unit MyThreadUnit;

interface

uses
  Classes, Windows;

type
  TMyThread = class(TThread)
  private
    FDllPath: string;
    FDllHandle: HMODULE;
  protected
    procedure Execute; override;
  public
    constructor Create(const ADllPath: string);
    destructor Destroy; override;
  end;

implementation

constructor TMyThread.Create(const ADllPath: string);
begin
  inherited Create(True);
  FDllPath := ADllPath;
end;

destructor TMyThread.Destroy;
begin
  if FDllHandle <> 0 then
    FreeLibrary(FDllHandle);
  inherited Destroy;
end;

procedure TMyThread.Execute;
begin
  FDllHandle := LoadLibrary(PChar(FDllPath));
  if FDllHandle = 0 then
    // 处理加载失败的情况
  else
    // DLL加载成功，可以进行后续操作
end;

end.

var
  Thread1, Thread2: TMyThread;
begin
  Thread1 := TMyThread.Create('path_to_dll1.dll');
  Thread2 := TMyThread.Create('path_to_dll2.dll');

  Thread1.Start;
  Thread2.Start;

  // 等待线程执行完毕
  Thread1.WaitFor;
  Thread2.WaitFor;

  // 执行其他操作
end;