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