Icons in EXE einbinden

[Sunlight7]

Beispiel:

Application.Icon.Handle:=LoadIcon(HINSTANCE, 'MeinIconName'); Edit: Ohne Pfad und .res

[hedie]

Hab was gefunden bzw. gemacht

image1.Picture.Icon.LoadFromResourceName(2,'icons.RES'); obwohl die datei icons.RES im ordner ist gibt er die meldung icons.RES nicht gefunden


weshalb den das?


ich weiss hätte den beitrag editieren sollen

habs heraus gefunden war einen ordner zu tief

also er hat die datei gefunden aber wie kann ich nun das entsprechende icon aus der res datei auswählen?

[DevilsCamp]

Du musst die RES-Datei schon mit {$R RESDATEI} einbinden.

Und als Resource-Name musst du den Namen nehmen, den du dem Icon in der RES-Datei gegeben hast.

[hedie]

ich weiss nicht wo der namen steht

seht selbst

[DevilsCamp]

Der Name steht direkt über "Language Neutral". Wenn du auf "Language Neutral" mit der rechten Maustaste klickst, dann kannst du mit dem Punkt "Properties" auch den Namen ändern...

[hedie]

Ok hab dem mal den namen HELLO gegeben

und dan das so gemacht
image1.Picture.Icon.LoadFromResourceName(0,'HELLO'); aber es klappt nicht ha den code in eine Button getan

wofür steht eigentlich das 0 bzw. die Zahl vor dem Komma und was ist Cardinal?


vielen dank

[DevilsCamp]

Die Zahl vor dem Namen ist die Instanz des Moduls, das das Icon enthält. Cardinal ist ein Integertyp, 32bit vorzeichenlos.



Ruf folgendes auf:

image1.Picture.Icon.LoadFromResourceName(HInstance, 'HELLO'); Dann sollte es gehen.

[Luckie]

Steht alles in der Hilfe:

Zitat:

Instance ist das Handle des Moduls, das die Ressource enthält.

Und es gibt sogar ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
 BitMap1 : TBitMap;
begin
  BitMap1 := TBitMap.Create;
  try
    BitMap1.LoadFromResourceName(HInstance,'THEBITMAP');
    Canvas.Draw(12,12,BitMap1);
  finally
    BitMap1.Free;
  end;
end;

[Sunlight7]

So:

image1.Picture.Icon.LoadFromResourceName(HInstance,'HELLO'); Edit: Rote Kästen wären manches mal nicht schlecht:

[hedie]

es hat geklappt vielen vielen dank an euch alle