السلام عليكم و رحمة الله و بركاته
أرغب بمعرفة عدد الأيقونات على سطح المكتب ؟ ولو بالإمكان معرفة ال( handle ) الخاص بكل أيقون ؟؟؟
مع جزيل الشكر.....................
icons on desktop
مغلق
Desktop هي عبارة عن ListView ...
لو حاولت البحث في google ستجد هذا الموضوع :
http://www.swissdelphicenter.ch/en/printcode.php?id=1897
كيفية الإستفادة من ذلك الموضوع ترجع لك ...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
ما شاء الله عليكم ... حتى ايقونات الدسك توب ما سلمت منكم ايها المبرمجون ... :D
اضافة لما ذكر اخوي cipher .. شوف هالموضوع لأخذ الهاندل الخاص باللست فيو .. من نفس الموقع :
http://www.swissdelphicenter.ch/en/showcode.php?id=84
واذا تحب طريقة بسيطة تعتمد على عد الملفات ... ( الأيكون ملف ) .. صح .. ؟
جرب هذة الفنكشن :
function GetFilesCount(Folder, WildCard: string): Integer;
var
intFound: Integer;
SearchRec: TSearchRec;
begin
Result := 0;
if (Folder <> '') and (Folder[Length(Folder)] <> '\') then
Folder := Folder + '\';
intFound := FindFirst(Folder + WildCard, faAnyFile, SearchRec);
while (intFound = 0) do
begin
if not (SearchRec.Attr and faDirectory = faDirectory) then
Inc(Result);
intFound := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
{To use:
i := GetFilesCount('d:\', '*.zip'); //retrieve a number of zip-archives
i := GetFilesCount('c:\windows\', '*.bmp'); //retrieve a number of bitmaps
i := GetFilesCount('c:\My Documents', '*.*'); //retrieve a total number of any files }هذا الموضوع مغلق.