Jak pozyskać ikonkę dowolnego rozszerzenia? Niestety nie działa sposób z FAQ, bo nie mam ścieżki do pliku, jedynie nazwę. Jest jakiś sposób?---------------------------
Delphi 6
Pozdrówka
0
Jak pozyskać ikonkę dowolnego rozszerzenia? Niestety nie działa sposób z FAQ, bo nie mam ścieżki do pliku, jedynie nazwę. Jest jakiś sposób?---------------------------
0
No wiec jak powiedziales ze to ci wystarcz to masz: :-) jeszcze do listy uses dodaj registry ;)
var reg:tregistry;
s,a:string;
begin
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey('.rar',false); //tu masz rozszerzenie zmieniasz na jakie chcesz :-)
s:=reg.ReadString(); showmessage(s); reg.CloseKey; reg.OpenKey(s+'\\DefaultIcon',false); a:=reg.ReadString();
showmessage(a);
Tu jest akurat rar ale jak bys chcial cos innego to lepiej sprawdz w rejestrze jakie sa klucze :-) bo nie zawsze musi byc tak slodko :-)--pozdrawiam PEDROS {hello}
Nie uzywajcie irca i tak nie ma tam nic ciekawego.
Delphi6 Personal