اضافه کردن ایتم جدید(فایل باشه) به لیست با ایکونه همون فایل

[FiACKER]

سلام
ساله نو مبارک باشه.
من تویه برنامه ام یه لیست دارم که هر فایلی که بهش اضافه می شه باید ایکون اون فایل هم به اون ایتم جدید اختصاص داده بشه.

یعنی کدی می خوام که ایکونه فایل رو دریافت کنه... در شی ImageList قرار بده و موقع اضافه کردن ایتم جدید به لیست ایکونه اون فایل هم که تازه اضافه شده به اون ایتم اختصاص داده بشه.

اگه دوستان منبع ی سورسی دارن ممنون می شم معرفی کنن.

با تشکر

[sql_qassem]

سوالت پيچيده است ؛‌ يعني يكمي سوالت رو پيچوندي . كمي ساده تر بنويس تا بتونيم بهت كمك كنيم.

[FiACKER]

سوال ساده اس !
دوستاني كه تجربه كار با ليست رو دارن مي دونن من چي مي گم.

منظورم اينه كه مثلا اگه يه ليست داريم كه مي خواييم پروسه هاي ويندوز رو بهش اضاف كنيم، ايكونه همون پروسه رو به اون پروسه در ليست اختصاص بديم.

البته خودم فهميدمش !
خيلي اسون بود. فقط من يه خورده تنبلي كرده بودم :

function GetIcon(Filename:String):Integer ;

Var

HIcon32 ,

HIcon16 : HIcon;

Icon : tIcon;

Begin

  ExtractIconEx(Pchar(Filename),0,HIcon32,HIcon16,1)  ;



  If (HIcon16<>0) then

  Begin

    Icon:=tIcon.Create;

    Icon.handle:=HIcon16;

    Result := frmMain.ilProcessImage.AddIcon (Icon);

    Icon.Free;

  end

End;