12-07-2011, 03:28 AM
[FONT="Arial"]
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اليوم وانا افكر في كيفية اكتشاف السواقات الوهمية او بما يعرف بالفلاش ميموري
وطريقة ازالتها او تركيبها فجأة وكيفية التعرف عليها ومن خلال بحثي وجدت ان افضل طريقة هي التايمر timer
فخرجت بهذا الكود
واعتذر اشد الاعتذار في حال كان فيه اخطاء في الكود :
فقط يلزمك فورم+تايمر وتضع الكود بداخل التايمر وان شاء الله يكون كل شئ ممتاز
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اليوم وانا افكر في كيفية اكتشاف السواقات الوهمية او بما يعرف بالفلاش ميموري
وطريقة ازالتها او تركيبها فجأة وكيفية التعرف عليها ومن خلال بحثي وجدت ان افضل طريقة هي التايمر timer
فخرجت بهذا الكود
واعتذر اشد الاعتذار في حال كان فيه اخطاء في الكود :
كود :
var Flash : Char ;
begin
for Flash := 'A' To 'Z' do
if GetDriveType(Pchar(Flash + ':\')) = 2 Then
Label1.Caption:=(Flash + ':\')
else
Label1.Font.Color:=clRed;
Label1.Caption:= 'NOT FOUND';