برخي مواقع بعضي از برنامه هاي شما احتياج به خواندن اطلاعات از روي CD را دارند. قبل از اجراي برنامه مي توان با استفاده از دستورات مختلفي مانند FileExists وجود CD مورد نظر در CD-Rom را بررسي كرد و در صورت صحيح بودن آن برنامه را اجرا كرد.
اما اگر كاربر در هنگام اجراي برنامه CD حاوي اطلاعات را از CD-Rom خارج كند
به چه صورت مي توان آن را تشخيص داد.
شايد بررسي مكرر توسط دستوراتي از قبيل FileExists كار درستي نباشد.
ويندوز براي شما يك دستور تدارك ديده كه توسط آن مي توانيد وارد و خارج شدن CD از CD-Rom را تشخيص دهيد.
زماني كه شما يك CD را وارد CD-Rom مي كنيد آن به عنوان يك Device جديد براي ويندوز شناخته مي شود. پس از اين روش مي توان وارد و خارج كردن آن را در هنگام اجراي برنامه تشخيص داد.
به كد زير توجه فرماييد :
type
TForm1 = class(TForm)
private
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
// اين قسمت فراموش نشود
public
end;
{...}
implementation
{$R *.DFM}
procedure TForm1.WMDeviceChange(var Msg: TMessage);
const
DBT_DEVICEARRIVAL = $8000; // system detected a new device
DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone
var
myMsg: string;
begin
inherited;
case Msg.wParam of
DBT_DEVICEARRIVAL: myMsg := 'CD inserted!';
DBT_DEVICEREMOVECOMPLETE: myMsg := 'CD removed!';
end;
ShowMessage(myMsg);
end;
به همين سادگي مي توان اين عمل را تشخيص داد.
البته راههاي ديگري نيز براي تشخيص اين اعمال وجود دارند اما بهترين و راحت ترين راه ممكن ، همان راهي است كه من براي شما نوشته ام.
از اين كد در برنامه هاي خود استفاده كنيد و جلوي Error هاي برنامه را در صورت عدم وجود CD در CD-Rom بگيريد.
برنامه را اجرا كنيد ، سپس يك CD در درايو قرار دهيد ، بار ديگر CD را از درايو خارج نماييد و نتيجه آن را مشاهده كنيد.
موفق باشيد
نظرات شما عزیزان:
تبادل
لینک هوشمند
