کنترل وجود دیسکت در فلاپی درایو

[hadi azad]

با سلام
چگونه میتونم از وجود فلاپی در درایو مطلع شوم

[مهدی کرامتی]

قبلا پاسخ داده شده است. جستجو کنید.

[Delphi-Clinic]

سلام


function DiskInDrive(Drive: Char): Boolean;
var
ErrorMode: word;
begin
Drive: = UpCase(Drive);
if not (Drive in ['A'..'Z']) then
raise EConvertError.Create('Not a valid drive ID');
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
try
if DiskSize(Ord(Drive) - $40) = -1 then
DiskInDrive := False
else
DiskInDrive := True;
finally
SetErrorMode(ErrorMode);
end;
end;

[nasr]

راستش دلم نیومد چیزی نگم

جناب دلفی کلینیک این امضات خیلی باحاله

یعنی دیگه آخر امضاست


بدترین درد یک فرد درد عاشقی نیست.
بدترین درد دردی است که گلاب به رو تون احتیاج به دستشویی داشته باشی و توالت در دسترس نباشد.
:D :D

[فرزاد دلفی باز]

برای این کار می توان از کد زیر در رویداد OnClick دکمه مربوطه استفاده کرد :
if DiskSize(ord('A')-$40)<>-1 Then
Begin
L
Application.MessageBox( ' فلاپی درایو چک شد ',Mb_ok);
end
else
begin

Application.MessageBox( 'هیچ فلاپی پیدا نشد ',Mb_ok);
end;