دوست عزیز من متوجه این موضوع نشدم در input در این قسمت on show ندارد
دوست عزيز نيازي به پيام خصوصي نيست من تالار رو ميبينم هرجايي هم بتونم و وقتش باشه پاسخ ميدم سوالات رو
من اينطور كارا رو تو دلفي انجام ميدم اگه كد دلفي خواستي بگو
قبلا يه برنامه براي جستجوي هارد تو اتوپله اي نوشته بودم اگه پيدا كردم ميزارم برات
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
txtfile = File.Find("C:\\folder", "*.txt*", false, false, nil, nil);
for nIndex, a in pairs(txtfile) do
b = String.SplitPath(a);
add = ListBox.AddItem("ListBox1", b.Filename, a);
end
قابلیت نصب فراخوانی crack , سریال و....
این کد همه تکسهای مسیر c\folder رو میریزه تو لیست باکس دیگه خودت هر جور میخوای تغیرش بده
کد:ListBox.DeleteItem("ListBox1", LB_ALLITEMS); txtfile = File.Find("C:\\folder", "*.txt*", false, false, nil, nil); for nIndex, a in pairs(txtfile) do b = String.SplitPath(a); add = ListBox.AddItem("ListBox1", b.Filename, a); end
اگه منظورت اینه که مثل مجموعه های تو بازار دکمه برای کرک یا سریال بزاری تو یه تاپیک جدا مطرح کن تا جواب بدم
drives = Drive.Enumerate();
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
else
all_drives = Table.Concat(drives, "\r\n");
Dialog.Message("Notice", "Below is a list of all of your current drives:\r\n"..all_drives);
end
--------------------------------------------------این کد همه تکسهای مسیر c\folder رو میریزه تو لیست باکس دیگه خودت هر جور میخوای تغیرش بده
کد:ListBox.DeleteItem("ListBox1", LB_ALLITEMS); txtfile = File.Find("C:\\folder", "*.txt*", false, false, nil, nil); for nIndex, a in pairs(txtfile) do b = String.SplitPath(a); add = ListBox.AddItem("ListBox1", b.Filename, a); end
اگه منظورت اینه که مثل مجموعه های تو بازار دکمه برای کرک یا سریال بزاری تو یه تاپیک جدا مطرح کن تا جواب بدم
سلامسوالتون خیلی کلیه. چیرو می خواین جستجو کنید؟