응용 프로그램 (.exe)이 런타임 패키지로 작성되었는지 테스트하는 방법

Question

.exe Delphi 응용 프로그램이 런타임 패키지로 작성되었거나 단일 .exe 인 경우 어떻게 코딩 할 수 있습니까?

Answer 1

또 다른 가능성 :

function UsesRuntimePackages: Boolean; 
begin 
    Result := FindClassHInstance(TObject) <> HInstance; 
end; 

Answer 2

"Islibrary"를 사용해 보셨습니까?

Answer 3

사용은 매우처럼 EnumModules() 절차를 사용할 수 있습니다

function EnumModuleProc(HInstance: Integer; Data: Pointer): Boolean; 
begin 
    Result := True; 
    if HInstance <> MainInstance then begin 
    Inc(PInteger(Data)^); 
    Result := False; 
    end; 
end; 

function UsesRuntimePackages: boolean; 
var 
    PckgCount: integer; 
begin 
    PckgCount := 0; 
    EnumModules(EnumModuleProc, @PckgCount); 
    Result := PckgCount > 0; 
end; 

Answer 4

또 다른 가능성, 당신은 (그것을 실행하지 않고) 외부 실행이 필요한 경우를 :

를

procedure InfoProc(const Name: string; NameType: TNameType; Flags: Byte; Param: Pointer); 
begin 
    case NameType of 
    ntContainsUnit: 
     if Name = 'System' then 
     PBoolean(Param)^ := False; 
    end; 
end; 

function UsesRuntimePackages(const ExeName: TFileName): Boolean; 
var 
    Module: HMODULE; 
    Flags: Integer; 
begin 
    Result := True; 

    Module := LoadLibraryEx(PChar(ExeName), 0, LOAD_LIBRARY_AS_DATAFILE); 
    try 
    Flags := 0; 
    GetPackageInfo(Module, @Result, Flags, InfoProc); 
    finally 
    FreeLibrary(Module); 
    end; 
end;