Essential Delphi 8 for .NET

Essential Delphi 8 for .NET
یکی از کتابهائی است که در مورد نگارش جدید دلفی نوشته شده است.
دلفی در نگارش جدید کلیه امکانات برناه را تغییر داده است و برنامه نویسانی که قبلا با دلفی 7 به پائین کار کرده اند بایستی مطالب زیادی را یاد بگیرند.
در ضمن در دلفی 8 محیط برنامه نویسی هم عوض شده و به نظر من بیشتر شبیه محیط وی بی است.

تشخیص سی دی درایو کامپیوتر

با برنامه زیر می توانید اسم سی دی درایو را پیدا کنید. کار این تابع در زمانی است که می خواهید بر روی سی دی کار کنید و مثلا وجود فایل خاصی را بررسی کنید.

Function GetCDDriveName:String;

var s:String; Found:Boolean;

begin

s:='d:\';

Found:=False;

While (Not Found) and Not (s[1] In ['z','Z']) Do

begin

If getdrivetype(PChar(s)) = DRIVE_CDROM then

Found:=True

Else

s[1]:=Chr(Ord(s[1])+1);

end;

If Found then

GetCDDriveName:=s

Else

GetCDDriveName:='';

end;

این تابع نام سی دی درایو را در خروجی بر می گرداند. در صورتیکه سی دی درایوی نباشد مقدار آن خالی است.