Mega Code Archive
Uzantının bağlı olduğu simgeyi forma çizdirmek
<![CDATA[
öncelikle forma bir edit ve bir buton ekleyin.
aşağıdaki kodu aynen kopyalayıp butonun onclick olayına yapıştırın.
daha sonra programı derleyin ve edite aşağıdaki gibi uzantılar girin.
ÖRNEK:
.txt
.PAS
.doc
.bmp gibi işe noktaile başlayın. :)
var
IconIndex : word;
h : hIcon;
reg1:TRegistry;
i:string;
konum:integer;
exe:string;
icox:Word;
begin
reg1 := TRegistry.Create;
reg1.RootKey :=HKEY_CLASSES_ROOT;
reg1.OpenKey(edit1.Text,false);
i:=reg1.ReadString('');
reg1.CloseKey;
reg1.Free;
reg1 := TRegistry.Create;
reg1.RootKey :=HKEY_CLASSES_ROOT;
reg1.OpenKey(i + '\DefaultIcon',false);
i:=reg1.ReadString('');
reg1.CloseKey;
reg1.Free;
form1.caption := i;
konum := pos(',',i);
exe := copy(i,0,konum-1);
exe := trim(exe);
icox := strtoint(copy(i,konum+1,length(i)));
IconIndex := 0;
h :=
ExtractAssociatedIcon(hInstance,pchar(exe),icox);
DrawIcon(Form1.Canvas.Handle,
10,
10,
h);
end
{
Bu programın yapımı kürşat arkadaşım tarafıdan düşünüldü ve birlikte yazdık.
Murat Turan
}
]]>