Jak wykryć literę CD-ROM-u ?
function DetectCD: string;
var
Drive : char;
DrivesCD : string;
Begin
DrivesCD:='';
For Drive:='a' to 'z' do
If GetDriveType(PChar(Drive+':\'))=DRIVE_CDROM Then
DrivesCD:=DrivesCD+Drive;
Result:=DrivesCD;
End;
procedure TForm1.Button1Click(Sender: TObject);
var
Drives : string;
I : integer;
Begin
Memo1.Clear;
Drives:=DetectCD;
For I:=1 to Length(Drives) do
Memo1.Lines.Add(Drives[I]+':\');
End;
var
Drive : char;
DrivesCD : string;
Begin
DrivesCD:='';
For Drive:='a' to 'z' do
If GetDriveType(PChar(Drive+':\'))=DRIVE_CDROM Then
DrivesCD:=DrivesCD+Drive;
Result:=DrivesCD;
End;
procedure TForm1.Button1Click(Sender: TObject);
var
Drives : string;
I : integer;
Begin
Memo1.Clear;
Drives:=DetectCD;
For I:=1 to Length(Drives) do
Memo1.Lines.Add(Drives[I]+':\');
End;
Materiał dodany przez użytkownika: alphan