Resourcen an eine .exe anhängen

[noHuman]

Hi !

Wie kann ich von meinem Programm an die Datei C:\blabla.exe eine Text-Resource vom Typ

RCDATA anhängen?

( Mit dem Extrahieren der Resource habe ich kein Problem, den Code habe ich schon!
Bei SwissDelphiCenter, Torry und hier hab ich nichts gefunden, weitere Seiten kenn ich
eigentlich nicht.
)


Danke im Voraus!

[fred.reichbier]

schon mal hier geguckt?
http://www.dsdt.info/tipps/?id=645

[noHuman]

toller Lösungsweg, danke !

gibt es auch noch andere?

[NicoDE]

Nicht als Ressource, sondern an die Datei angehängt: http://www.delphipraxis.net/internal...=387636#387636

[SirThornberry]

wie das ganze als ressource funktiniert würde mich mehr interessieren. Ich hab mal mit UpdateRessource herumprobiert, allerdings hatte ich dann laut ressourcenhacker doppeltbenamte ressourcen in der datei anstatt die alte ressource zu ersetzen

[noHuman]

@ SirThornberry

UpdateResource ?

Kann man damit auch Resourcen anhängen ?
Ich find das nicht in der Delphi-Hilfe!
Kann es sein, das dass nicht bei Delphi dabei ist?

[Khabarakh]

UpdateResource ist eine WinAPI-Funktion, UpdateResource.

[noHuman]

Ich hab nach dem MSDN Zeugs, so wie ich es verstanden hab, ein Codesample erstellt:

Delphi-Quellcode:

procedure TForm1.BitBtn1OnClick( Sender : TObject );
var
 h  : THandle;
const
 exedatei = 'project2.exe';
begin
{
HANDLE BeginUpdateResource(      
    LPCTSTR pFileName,
    BOOL bDeleteExistingResources
);
}

h := BeginUpdateResource(exedatei,TRUE);

{
BOOL UpdateResource(      
    HANDLE hUpdate,
    LPCTSTR lpType,
    LPCTSTR lpName,
    WORD wLanguage,
    LPVOID lpData,
    DWORD cbData
);
}

 UpdateResource(h,RT_RCDATA, 'text', 'RCDATA','C:\textfile.txt',340);

{
BOOL EndUpdateResource(      
    HANDLE hUpdate,
    BOOL fDiscard
);
}

EndUpdateResource(h,FALSE);

end;

Ist dieses Codesample richtig oder ost da was falsch ?

Bitte auf Fehler hinweisen (ungetestet von mir!)

[jfheins]

Ich glaube, der Parameter von BeginUpdateResource muss False sein, es sei denn, du möchtest pauschal alle löschen:

Zitat:

bDeleteExistingResources
[in] Specifies whether to delete the pFileName parameter's existing resources. If this parameter is TRUE, existing resources are deleted and the updated executable file includes only resources added with the UpdateResource function. If this parameter is FALSE, the updated executable file includes existing resources unless they are explicitly deleted or replaced by using UpdateResource.

[DGL-luke]

@noHuman:

was du da gepostest hast ist eine delphi-funktion mit C-Code drin. das wird so wohl nicht funktionieren.

du musst zuerst den code nach delphi konvertieren.

wie das geht? das sagen dir die anderen, ich hab jetzt keine zeit

EDIT: ja stimmt, sorry, hab ich wohl nicht richtig gelesen.... dass in Delphi aber auch { } kommentare sind....