Keine Icon Resource?

[mleyen]

Da ich damals danach gefragt wurde, ich jetzt wieder das Problem hatte und ich nirgends im Forum eine 'saubere' Lösung gefunden hab:

Delphi-Quellcode:

program Project1;

{$DEFINE IWannaChangeMainIconInIDE} // Strg + Shift + F11 --> Anwendung [+~370 KB!!!]
{$DEFINE IWannaUseVersionInformation} // Strg + Shift + F11 --> Verionsinformationen

{$IFDEF IWannaChangeMainIconInIDE}
uses
  Forms;
{$ENDIF}

{$IFDEF IWannaChangeMainIconInIDE AND $IFNDEF IWannaUseVersionInformation}
  {$DEFINE IWannaUseVersionInformation}
{$ENDIF}
{$IFDEF IWannaUseVersionInformation}
{$R *.res}
{$ENDIF}

begin
{$IFDEF IWannaChangeMainIconInIDE}
  Forms.Application.Icon.Modified; // Whatever... ohne gehts nicht...
{$ENDIF}
end.

Um die Versionsinformationen zu nutzen, braucht man:

• {$R *.res}

Um das Icon innerhalb von Delphi austauschen zu können, braucht man:

• {$R *.res}
• Die Unit Forms
• Irgendeinen sinnbefreiten Aufruf aus Application.