res files

[day]

hallo,
Wenn ich das Rescoure file meines projektes lösche und dan anschliessend das ganze nochmals compiliere geht das icon der exe datei verloren. woran kann das liegen? ist das icon nicht in der *.dof datei hinterlegt?

[Hobby-Programmierer]

Mahlzeit ...,
öffne doch einfach mal die *.dof Datei mit nem Texteditor und siehe selbst.

[_frank_]

hast du dir die DOF mal angeschaut? wenn ja, siehst du dass dort die IDE-Einstellungen des Projektes als ini gespeichert sind...und in ner ini lassen sich schwer bis gar nicht binärdaten speichern.
bei mir geht aber das Icon auch nicht verloren wenn ich die res und die exe lösche.
du kannst mal versuchen das icon über die projekteinstellungen neu zu setzen.

Gruß Frank

[day]

hallo, ist mir schon klar das,dass icon selbst nicht in der dof datei ist. Aber es hätte ja sein können, dass der Pfad da hinterlegt ist. Das mit dem Icon laden würde schon gehen, ist allerdings zu aufwändig.
Ich möchte nämlich die versioninforamtionen direkt in der dof datei ändern. (Da ich die Projekt-versionsverwaltung extern mache.) Damit die Versioninformation anschliessen auch in der exe ge-updated werden, muss man zuerst das res file löschen. Ansonsten werden sie nicht neu gesetzt. Daher dachte ich, wenn ich die resfiles lösche und dan mein komplettes projekt neu compiliere müssten alle informationen korrekt sein. leider habe ich jetzt das Problem mit den Icons.

[Corpsman]

Man Kann auch das Icon Manuell( also via Source Code) in das Projekt einbinden.

Ich lösche auch immer alle Unnötigen dateien bei meinem D5Pro dabei löscht sich das Icon auch aus der Exe.

Ein klein bischen Code in der Project.dpr behebt das Problem dann wieder ;).

Leider habe ich den Code grad nicht zur hand. Schick mir mal ne PN dann kann ich ihn dir heute Abend zu senden.

[day]

Hallo,
Hier der Lösungsansatz von Corpsman für das Icon Problem.

Delphi-Quellcode:

program Project1;

{$R 'Icon.res' 'Icon.rc'} // Einbinden der Icon Ressource in "Icon.rc" steht der Index 1

uses
  Forms,
  shellapi,
  graphics,
  Unit1 in 'Unit1.pas' {Form1};

//{$R *.RES}

Var
  Icon: TIcon; // benötigt fürs laden des Icons
Begin
  // memchk;
  Icon := TIcon.Create; // benötigt fürs laden des Icons
  Try // benötigt fürs laden des Icons
    Icon.Handle := ExtractIcon(hinstance, pchar(paramstr(0)), 0); // benötigt fürs laden des Icons
    Application.Icon.Assign(Icon); // benötigt fürs laden des Icons
  Finally // benötigt fürs laden des Icons
    Icon.Free; // benötigt fürs laden des Icons
  End; // benötigt fürs laden des Icons
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Icon.rc file:
1 ICON DISCARDABLE "Icon_.ico"

und zum Schluss noch ein Dankeschön an Corpsman für die Unterstützung.