Resource an andere Datei anhängen
Tach,
ich suche gerade nach einer Möglichkeit eine Datei als Resource an eine andere .exe anzuhängen. Auf meiner Suche bin ich hierauf gestoßen: http://www.delphi-treff.de/no_cache/...2ee&sword_list[0]=anh%C3%A4ngen
Eigentlich ist das perfekt für meine Zwecke, aber es will irgendwie nicht funktionieren.
Was ich bisher gemacht habe:
1. Ich lasse mir über diese Funktion die Größe der Datei ausgeben
Code:
function GetFileSizeA(const FileName: String): Integer;
var SR: TSearchRec;
begin
Result := -1;
if FindFirst(FileName, faAnyFile and not faDirectory, SR) = 0 then
try
Result := SR.Size;
finally SysUtils.FindClose(SR) end;
end;
2.Ich trage die Größe der Datei bei ExeSize ein.
3. Ich kopiere die Datei in einen anderen Ordner und führe sie aus, sodass sie das Bild in die ursprüngliche Project1.exe reinschreiben müsste.
4. Ich führe die Project1.exe aus und will das Bild laden lassen.
Hier ist mein Problem. Die Datei wird zwar extrahiert ist aber 0Byte groß und kann folglich auch nicht angezeigt werden.
Kann mir jemand sagen wo hier der Fehler liegt?
mfg theone
