Exe Icon vom fremden Programm ändern

[Pascal95]

Hallo,

ist es möglich, das Icon, das im Explorer neben dem Dateinamen angezeigt wird, zu ändern?
Wenn ja, würde mich eine Lösung interessieren. Ich arbeite mit Lazarus v0.9.28.2; FPC ist 2.2.4.

Vielen Dank
Pascal

[rollstuhlfahrer]

Das: XN Ressource Editor ist eigentlich alles, was du brauchst.

Bernhard

[Pascal95]

Hi,

es geht mir aber darum, das mit einem Programm zu machen.
Also kein externes Programm nutzen, sondern eine Delphi-Funktion (Freepascal).

So etwas wie das Gegenteil von ExtractIcon, womit man dann ein Icon einer anderen Anwendung (exe) ändern kann.

Pascal

[Sir Rufo]

Zu dem Programm liegt doch auch der Quellcode vor.

Nimm die entsprechenden Teile doch davon

[Pascal95]

Hallo!

Zitat von Sir Rufo:

Zu dem Programm liegt doch auch der Quellcode vor.

Ja, aber für Delphi 2006, ich schau mir das mal an. Ich bräuchte aber etwas, das ich dann mit Lazarus (Freepascal) bearbeiten kann.

Pascal

[Sir Rufo]

Ja, die gebratenen Tauben sind schon seit längerem aufm Betriebsausflug

[Pascal95]

Zitat von Sir Rufo:

Ja, die gebratenen Tauben sind schon seit längerem aufm Betriebsausflug

"Die gebratenen Tauben fliegen einem nicht ins Maul!"

Soweit ist mir das klar

Ich habe jetzt diesen ganzen Krämpel konvertiert und ein bisschen bearbeitet. Aber wie soll das auch funktionieren. Freepascal ist halt nicht Delphi Language.

Edit: Bin müde, schau morgen noch mal vorbei

[Assarbad]

Zitat von Pascal95:

Freepascal ist halt nicht Delphi Language.

Nicht immer alles Marketingesisch glauben, egal von wem. "Delphi Language" ist auch nur ein aufgerüstetes Object Pascal. Und wenn der Code für die 2006er Version war, ist das nicht so weit von dem entfernt was FreePascal beherrscht, denn bspw. Generics waren in der (Delphi-)Version noch nicht drin.

[Garfield]

Vielleicht hilft das etwas weiter:

http://forum.madshi.net/viewtopic.php?p=14897
http://help.madshi.net/madResUnit.htm
EXE Icon austauschen

[JamesTKirk]

Wenn ich den Code vom XN Resource Editor richtig im Kopf habe, dann sind im diesen eh eigene PE-Datei Funktionen. Du benötigst glaub ich noch ein Zusatzpackage von der Seite, dass eine Unit ntmodule (oder ähnlich) enthält. Der Code an sich (ohne Formulare) sollte dann eigentlich ohne großen Aufwand mit Free Pascal kompilieren, wenn du

Delphi-Quellcode:

{$ifdef fpc}
  {$mode objfpc}{$H+}
{$endif}

unterhalb von unit Bla; in die Units schreibst.

Gruß,
Sven