2016-03-23 7 views
1

Ich versuche zu überprüfen, ob eine Ressource in einer anderen Delphi-Anwendung existiert, das Problem ist, dass nur wissen, wie man es lokal macht, ich meine in der Anwendung selbst.Überprüfen, ob Ressource in einer anderen Anwendung in Delphi existiert

Quelle:

function exists_resource(name: string): boolean; 
begin 
    if (FindResource(HInstance, PChar(name), RT_RCDATA) <> 0) then 
    begin 
    Result := True; 
    end 
    else 
    begin 
    Result := False; 
    end; 
end; 

Während ich dies in einer anderen Anwendung überprüfen kann?

Antwort

4

Verwenden Sie LoadLibraryEx, um die externe Datei zu laden.

Beachten Sie, dass die Verwendung von LoadLibraryEx auf diese Weise zum Laden von DLLs und EXE funktioniert.

+0

Ausnahmeblock ist sinnlos, FindResource löst keine Ausnahme aus. –

+0

@SertacAkyuz, du bist jetzt ein bisschen albern. Das "endlich" ist nicht da, um Ausnahmen zu bekommen. Es ist da, um den 'Exit' zu fangen. – Johan

+0

Seltsam. Was ist falsch mit 'Result: = FindResource ...' und kein tryf? –

Verwandte Themen