Vedhægtning af ikoner??

Tags:    delphi

Kan det lade sig gøre at vedhægte sit eget ikon til en fil i windows??
Det er fordi jeg har lavet en tekst editor som gemmer sine tekste filer som fx '*.stxt', men så vil jeg også godt have at den fil har et ikon, og at når man åbner den at den så åbner i mit program...
Kan det lade sig gøre?

/Mads



6 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
Kan det lade sig gøre at vedhægte sit eget ikon til en fil i windows??
Det er fordi jeg har lavet en tekst editor som gemmer sine tekste filer som fx '*.stxt', men så vil jeg også godt have at den fil har et ikon, og at når man åbner den at den så åbner i mit program...
Kan det lade sig gøre?

/Mads


Ja det kan du skal ind i registrerings databasen og skrive det kan ikke lige koden. men jeg prøver lige at finde den.
-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)



Kan det lade sig gøre at vedhægte sit eget ikon til en fil i windows??
Det er fordi jeg har lavet en tekst editor som gemmer sine tekste filer som fx '*.stxt', men så vil jeg også godt have at den fil har et ikon, og at når man åbner den at den så åbner i mit program...
Kan det lade sig gøre?

/Mads


Det her burde kunne gøre det:

uses Registry.

var
MyReg: Tregistry;
begin
MyReg := Tregistry.Create;
MyReg.RootKey := HKEY_CLASSES_ROOT;
MyReg.OpenKey('.stxt', true);
MyReg.WriteString('', 'stxtfile');
MyReg.CloseKey;
MyReg.OpenKey('stxtfile\\shell\\open\\command', true); //<- *
MyReg.WriteString('', '"'+application.exename+'" "%1"'); // <- *
MyReg.CloseKey; // <- *
MyReg.OpenKey('stxtfile\\DefaultIcon', true); // <- #
MyReg.WriteString('', 'C:\\Stien\\Til\\Ikonet.ico'); //<- #
MyReg.CloseKey; <- #
MyReg.free;
end;

*) Disse tre linjer gør, at dit program åbner når du åbner filen. De kan slettes hvis programmet ikke skal det.

#) Disse tre linjer sætter et ikon til dit program.

Emil Melgaard
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk



Kan det lade sig gøre at vedhægte sit eget ikon til en fil i windows??
Det er fordi jeg har lavet en tekst editor som gemmer sine tekste filer som fx '*.stxt', men så vil jeg også godt have at den fil har et ikon, og at når man åbner den at den så åbner i mit program...
Kan det lade sig gøre?

/Mads

Ja det kan du skal ind i registrerings databasen og skrive det kan ikke lige koden. men jeg prøver lige at finde den.
-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)


Ok!

/Mads



Kan det lade sig gøre at vedhægte sit eget ikon til en fil i windows??
Det er fordi jeg har lavet en tekst editor som gemmer sine tekste filer som fx '*.stxt', men så vil jeg også godt have at den fil har et ikon, og at når man åbner den at den så åbner i mit program...
Kan det lade sig gøre?

/Mads

Ja det kan du skal ind i registrerings databasen og skrive det kan ikke lige koden. men jeg prøver lige at finde den.
-------------------------------------------------------
My name is Johnny and i am Funny and have a lots of Money. ;-)

Ok!

/Mads


Hallo...!!?? Er jeg glemt??

/Mads



Hvis det er programmets ikon kan du skrive Application.ExeName + ',0' i stedet for 'C:\\Stien\\Til\\Iconet.ico'.

Emil Melgaard
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk



Hvis det er programmets ikon kan du skrive Application.ExeName + ',0' i stedet for 'C:\\Stien\\Til\\Iconet.ico'.

Emil Melgaard
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk


ok.. tak for det :D

/Mads



t