res files

[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.