Icon für EXE Datei ( Programm )

[Michi003]

Hallo,

ich würde meinem Programm gerne ein passendes Icon verpassen weiß aber leicht nicht wie das geht.
Bei Delphi7 wo ich benutze kann man so viel ich mal gesagt bekommen habe über die Option.: Projekt -> Option -> Annwendung ein Icon einstellen.
Aber bei mir geht das irrgent wie nich oder ich mache etwas falsch, ich kann kein Icon laden.
Wie geht das oder was mache ich Falsch?

[Luckie]

Steht irgendwo bei dir im Quellcode
{$I *.res}

[Michi003]

Habe die Suchfunktion benutz und diese hat nichts gefunden aber wo ich mal schnell drüber geflogen bin habe ich nur das gefunden
{$R *.dfm}

[Luckie]

Oh, ja, das sollte da stehen:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.

Und die Projketdatei (Menü -> Proket -> Quellcode ansehen} sollte so aussehen:

Delphi-Quellcode:

program Project3;

uses
  Forms,
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

Existiert die Datei? Dann muss da noch eine Projektname.res Datei existieren. Kannst du dein Projket kompilieren?

[Michi003]

Ja ok die zeile bis da hin sieht bei mir so aus...

Delphi-Quellcode:

unit ProgrammCXS01;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Bass, ExtCtrls, OleCtrls, MSScriptControl_TLB, ComCtrls, Menus,
  popup;

const
  WM_INFO_UPDATE = WM_USER + 101;

type

  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Button1: TButton;
    GroupBox3: TGroupBox;
    Button3: TButton;
    info: TButton;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure cbDirectConnectionClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure infoClick(Sender: TObject);



    
  private
    { Private declarations }

  public
    { Public declarations }
    procedure WndProc(var Msg: TMessage); override;


  end;

var
  Form1: TForm1;
  Proxy: array [0..99] of char; //proxy server

  cthread: DWORD = 0;
  chan: HSTREAM = 0;
  win: hwnd;
implementation

const
  urls: array[0..9] of string = ( // preset stream URLs
   'http://DemoLink.myserver.de:127.0.0.0/listen.pls ','',
   '','',
   '','',
   '','',
   '',''
    );

{$R *.dfm}

also dann einfach den von dir Geposteten Code einfügen?!

[Luckie]

Langsam, nicht so schnell. Mein Code ist nur ein leeres Projekt, den kannst du nicht so einfach einfügen. Wie sieht denn deine Projketdatei aus?

Da fällt mir ein, hast du denn überhaupt ein Projekt ode hast du einfach nur ein Formular erzeugt ohne zugehöriges Projekt? Und lässt sich dein Programm kompilieren? Ist die Schaltfläche mit dem Pfeil anklickbar und grün?

[Michi003]

Ja, ich kann mein Programmiertes speichern und als "exe" öffnen.
das programm läuft 1A nur als Icon ist das weiße kasten mit dem blauen rand oben.

[Luckie]

Lad das Projekt mal bitte hoch.

[Michi003]

Hier bitte..

(hoffe das ist das richtige)

[Luckie]

War zwar nicht dass, was ich meinte, aber es reicht:

Delphi-Quellcode:

program netradio1;

uses
  Forms,
  Unit112 in '..\Unit112.pas' {Form1},
  Bass in '..\..\Bass.pas',
  popup in 'popup.pas' {Frame1: TFrame},
  info in 'info.pas' {Frame2: TFrame},
  info1 in 'info1.pas' {Form3};

{$R *.res}  // <-- einfügen

begin
  Application.Initialize;
  Application.Title := 'CID Radio Player';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

Hättest du aber auch selber sehen können, nach dem ich dir meine Projektdatei gezeigt habe und den Hinweise auf
{$R *.res} .