Mavzu: Dasturlash tillari faniga kirish. Ob’ektga yo‘naltirilgan dasturlash tillari

procedure TForm1.FormCreate(Sender: TObject); 

var 

SysImageList: uint; 

SFI: TSHFileInfo; 

begin 

ListView1.LargeImages:=TImageList.Create(self); 

ListView1.SmallImages:=TImageList.Create(self); 

SysImageList := SHGetFileInfo('', 0, SFI, 

SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_LARGEICON); 

if SysImageList <> 0 then 

begin 

ListView1.Largeimages.Handle := SysImageList; 

ListView1.Largeimages.ShareImages := TRUE; 

end; 

SysImageList := SHGetFileInfo('', 0, SFI, SizeOf(TSHFileInfo), 

SHGFI_SYSICONINDEX or SHGFI_SMALLICON); 

if SysImageList <> 0 then 

begin 

ListView1.Smallimages.Handle := SysImageList; 

ListView1.Smallimages.ShareImages := TRUE; 

end; 

end; 

 

Биринчи икки қаторда кичик ва катта иконачалар рўйхати яратилади 

Катта  иконалар  рўйхатини  ҳосил  қилиш  учун  SHGetFileInfo,  функцияси 

чақирилади 

---

Энди OnShow ҳодисаси учун процедура киритамиз. Бу процедурада жорий 

директориядан ҳамма файлларни ўқувчи AddFile процедурасини яратамиз.