کپی فایل از سی دی رام

[babataher]

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

[shobair]

سلام
پیشنهاد میکنم کتاب "296 برنامه نوشته شده در دلفی" از انتشارات ناقوس رو بگیرید. از این مدل کدها توش فراوانه! کتاب معروفی هستش و معمولا کتاب فروشی ها دارن.

شبیر

[javad_hosseiny]

البته کتاب ذکر شده و کلا کتاب منبع خوبی هست
ولی بهتر از اون خود اینترنت هست
با کمی جستجو به راحتی می تونستید به جواب برسید
و اما کد موردنظر:


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;

و البته در همین بخش از سایت نیز منابع و سورس کدهای خوبی برای کارهای
سیستمی متفاوت ارائه شده من جمله:
http://www.barnamenevis.org/forum/showthread.php?t=41889
http://www.barnamenevis.org/forum/showthread.php?t=8785
و یا منابعی از دیگر سایت ها:
http://www.blueorbsoft.com/CodeTips/DelphiCodeTips1.html
http://latiumsoftware.com/en/delphi/00040.php