AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi icon changer, wie speicher ich das neue icon in die exe ?

icon changer, wie speicher ich das neue icon in die exe ?

Ein Thema von agm65 · begonnen am 13. Sep 2005 · letzter Beitrag vom 13. Sep 2005
Antwort Antwort
Benutzerbild von agm65
agm65

Registriert seit: 21. Okt 2003
1.194 Beiträge
 
Delphi 2006 Professional
 
#1

icon changer, wie speicher ich das neue icon in die exe ?

  Alt 13. Sep 2005, 15:08
hallo leute, hab mal wieder probleme über probleme...
habe folgenden source um das icon aus der exe zu copieren:
Delphi-Quellcode:
uses ShellApi;

function IconFromFile(const Filename: String; IconNr: Word): HICON;
var
  buffer: array[0..2*MAX_PATH]of Char;
begin
  StrPCopy(buffer, Filename);
  Result := ExtractAssociatedIcon(HInstance, buffer, IconNr);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  TempIcon: HICON;
  Icon:TIcon;
begin
  if OpenDialog1.Execute then begin
    //Icon holen
    TempIcon := IconFromFile(OpenDialog1.FileName,0);
    //Prüfen ob gefunden
    if (TempIcon <> 0) then
    begin
      //In Datei speichern
      Icon:=TIcon.Create;
      Try
        Icon.Handle := TempIcon;
        Icon.SaveToFile('c:\Merke.ico');
      Finally
        Icon.Free;
      End;
    end;
  End;
End;
wie speicher ich jetzt aber ein neues icon (c:\icon.ico) in die exe als neues exe icon ab ?
thx cu agm65
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

Re: icon changer, wie speicher ich das neue icon in die exe

  Alt 13. Sep 2005, 16:42
das was du brauchst hat mit dieser Routine nichts zu tun. Such mal in der DP nach Hier im Forum suchenFindResource und allem, was damit zusammenhängt. Desweiteren gibt e bei den Delphi Demos ein Beispiel dazu inform eines ResourcenEditors.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von agm65
agm65

Registriert seit: 21. Okt 2003
1.194 Beiträge
 
Delphi 2006 Professional
 
#3

Re: icon changer, wie speicher ich das neue icon in die exe

  Alt 13. Sep 2005, 17:39
cool..thx alot...cu agm65
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:06 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz