کمک درمورد کپی فایل از روی cd

[babataher]

سلام.به همه دوستان گرامی.من میخام یه فایل رو از روی سی دی به هارد کپی کنم.لطفا کمکم کنید که چطور بتونم آدرس سی دی رام رو بدست بیارم تا فیلم رو کپی کنم.با تشکر:تشویق: :تشویق: هو یا علی مدد

[B_YAGHOBI]

دوست عزیز این قسمت در مورد بانکهای اطلاعاتی میباشد !
سوال خود را در قسمت مربوطه قرار دهید.




uses Windows;

function GetFirstCdRomDrive: string;
var
r: LongWord;
Drives: array[0..128] of char;
pDrive: pchar;
begin
Result := '';
r := GetLogicalDriveStrings(sizeof(Drives), Drives);
if r = 0 then exit;
if r > sizeof(Drives) then
raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY ));
pDrive := Drives; // Point to the first drive
while pDrive^ <> #0 do begin
if GetDriveType(pDrive) = DRIVE_CDROM then begin
Result := pDrive;
exit;
end;
inc(pDrive, 4); // Point to the next drive
end;
end;