Thema: CD

Einzelnen Beitrag anzeigen

StefanW

Registriert seit: 22. Okt 2004
Ort: Treuen
25 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: CD

  Alt 7. Okt 2005, 19:55
zum Prüfen auf eine "bestimmte" CD würd ich den Befehl "GetVolumeInformation" bevorzugen... besser wäre allerdings wenn du die Seriennummer der CD prüfst. diese ist nur bei sehr wenigen CD gleich, und nicht beeinflussbar (soweit ich weiß).

etwa sowas hier:
Delphi-Quellcode:
Function TLaufwerkInfo.ASN;
Var
    Dummy: DWORD;
    Buffer: Array[0..MAX_PATH] Of Char;
    nummer: DWORD;
Begin
    Try
        GetVolumeInformation(PChar(Self.FLW), Buffer, SizeOf(Buffer), @nummer, Dummy, Dummy, Nil, 0);
        Result := IntToStr(nummer);
    Except
        Result := 'unbekannt';
    End;
End;
Hoffe geholfen zu haben
Tschau Stefan
Stefan W.
  Mit Zitat antworten Zitat