به دست آوردن ليست سيدي درايوهاي متصل به كامپيوتر

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

کد:

---

Function GetCDList : String;
Var
 I : Integer;
 Drives: Integer;
 Tmp : String;
begin
 Drives := GetLogicalDrives;
 Result := '';
// units A=0 to el Z=25
 For I := 0 To 25 Do
  If (((1 Shl I) And Drives)<>0) Then
  Begin
    Tmp := Char(65+I)+':\';
    If (GetDriveType(PChar(Tmp))=DRIVE_CDROM) Then
    Result := Result+Char(65+I);
  End;
End;

---

اینها رو هم قبلا در سایت گذاشته بودن

کد:

---

Function GetCdDrives:Tstringlist;
 const
    Drv:array[0..23]of char=('c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
 var
    Drives:Set of 0..25;
    n:Byte;
 begin
    Result:=Tstringlist.Create;
    Result.Clear;
    Integer(Drives):= GetLogicalDrives;
    For n:=0 to 23 do
    If n in Drives then
    begin
    If GetDriveType(Drv[n])=5{Cd} then
    begin
    Result.Add(Drv[n]);
    end;
    end;
 end;

---

کد:

---


Function GetCDList : String;
Var
  I    : Integer;
  Drives: Integer;
  Tmp  : String;
begin
Drives := GetLogicalDrives;
  Result := '';
// units A=0 to el Z=25
  For I := 0 To 25 Do
    If (((1 Shl I) And Drives)<>0) Then
    Begin
      Tmp := Char(65+I)+':\';
      If (GetDriveType(PChar(Tmp))=DRIVE_CDROM) Then
                                  Result := Result+Char(65+I);
    End;
End;

---

کد:

---

implementation

Uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  N: Byte;
  Drv: string;
  Drives: set of 0..25;
begin
  Integer(Drives):=GetLogicalDrives;
  for N:=0 to 25 do
    if N in Drives then
    begin
      Drv:=Char(N+Ord('A'))+':';
      if(GetDriveType(PChar(Drv))=5) then
        Label1.Caption:='Drive '+Drv+' is the CD-Rom Drive';
    end;
end;

---

کد:

---

procedure GetCDROMDrives(list: TStrings);
var
  DriveBits: set of 0..25;
  Drives,DriveNum: integer;
  DriveLetter: string;
begin
  list.Clear;
  Drives := GetLogicalDrives;
  if Drives <> 0 then
  begin
    integer(DriveBits) := Drives;
    for DriveNum := 0 to 25 do
    begin
      if (DriveNum in DriveBits) then
      begin
        DriveLetter := char(DriveNum+Ord('A'))+':';
        if GetDriveType(PChar(DriveLetter)) = DRIVE_CDROM then
          list.Add(DriveLetter);
      end;
    end;
  end;
end;

---

کد:

---

function FindFirstCDROMDrive: Char;
var
  drivemap, mask: DWORD;
  i: Integer;
  root: string;
begin
  Result := #0;
  root := 'A:\';
  drivemap := GetLogicalDrives;
  mask := 1;
  for i := 1 to 32 do
  begin
    if (mask and drivemap) <> 0 then
      if GetDriveType(PChar(root)) = DRIVE_CDROM then
      begin
        Result := root[1];
        Break;
      end;
    mask := mask shl 1;
    Inc(root[1]);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMEssage('First CD drive is ' + FindFirstCDROMDrive);
end;

---

کد:

---

function getcdroms: string;
var
  i: Byte;
begin
  Result := '';
  for i := 65 to 90 do
    if GetDriveType(Char(i) + ':\') = DRIVE_CDROM then
      Result := Result + Char(i);
end;

  ch: Char;
  s: string;
begin
  for ch := 'D' to 'Z' do
  begin
    s := ch + ':\';
    if GetDriveType(PChar(s)) = DRIVE_CDROM then
      ShowMessage('CDROM is ' + s[1])
  end;
end;

---