[Delphi] Var vullen met drive letter van cdrom

[Verwijderd]

Ik heb een programma waar in ik in de source een programma van cdrom wil laden, nu wil ik weten hoe ik de drive letter van de cdrom kan aanroepen, zodat ik dat programma kan draaien

[Varienaja]

Ik heb hier even niet de win32api help geinstalleerd, dus echt goed helpen kan ik je niet. (check ff of jij wel die helpfile op je pc hebt staan...)

De API-call GetDrivesString geeft je een string, met daarin alle drives die je PCtje heeft. Met GetDriveInfo kan je van iedere drive opvragen wat voor soort 't is. En hiermee kan je dus ook zien of een bepaalde drive een cdrom-drive is.

Let wel eventjes op dat een pc meerdere cdrom-drives kan hebben, dus als je de eerste hebt gevonden kan het best zijn dat het programma dat je zoekt op een andere drive staat.

[Creepy]

http://community.borland.com of http://www.google.com

search -> getting cdrom drive in Delphi

en ziedaar....ineens een aantal links met Delphi code om te copy/pasten.

[Verwijderd]

ik heb hier 2 functies voor je die ik heb gemaakt:

code:

type
  TDriveList = array[0..25] of Char;

function GetDriveList: TDriveList;
var
  I: Integer;
  Bits: set of 0..25;
begin
  Integer(Bits) := GetLogicalDrives;
  for I := 0 to 25 do begin
    if I in Bits then Result[I] := Char(I + Ord('A'))
    else Result[I] := ' ';
  end;
end;

function GetDriveType(Drive: Char): String;
begin
  case Windows.GetDriveType(PChar(Drive+':\')) of
    DRIVE_UNKNOWN: Result := 'Unknown';
    DRIVE_NO_ROOT_DIR: Result := 'No Disk';
    DRIVE_REMOVABLE: Result := 'Removable';
    DRIVE_FIXED: Result := 'Fixed';
    DRIVE_REMOTE: Result := 'Network';
    DRIVE_CDROM: Result := 'CD-Rom';
    DRIVE_RAMDISK: Result := 'RAM drive';
  end;
end;