التقاط اسماء الاقراص القابلة للازالة

[Agmcz]

السلام عليكم
هذا احد الحلول

كود :

procedure GetDriveUSB(DriveList: TStrings); var Root: Char; begin for Root := 'A' to 'Z' do begin if GetDriveType(PChar(Root + ':\')) = DRIVE_REMOVABLE then begin if DirectoryExists(Root + ':\') then begin DriveList.Add(Root + ':\'); end; end; Application.ProcessMessages; end; end; procedure TForm1.Button1Click(Sender: TObject); begin GetDriveUSB(Memo1.Lines); end;