CD-Namen bzw. CD-Bezeichnung auslesen?

uliversum · Verfasst: Fr 06.10.06 22:03

Hallo Delphi-Freunde!

Habe mein Prog soweit zusammen bekommen-
kann den Namen einer Partition lesen,
erkenne, ob eine Audio-CD eingelegt ist.

Aber Daten-CDs, wie die Windows-Setup-CD,
haben doch auch Namen,
und wenn sie nur beim Brennen benannt wurden.

In den dicksten Büchern, den Delphi/Easy-Helpern, finde ich nichts darüber!?

Bitte, wie kann ich die Bezeichnung einer (Daten)CD auslesen???

Ob es ein Delphi-Buch gibt?, in welchem nach bestimmten Themen Stichwortartig aufgelistet ist,
was für Befehle es gibt?
Eine Art Nachschlagewerk, eine Auflistung sämtlicher Befehle;
Z.B.: alle Möglichkeiten einer ListBox, alle einer TreeView etc.???

Habe 3 dicke, teure Delphi-Bücher; hier wird unendlich gelabert, Theorie ist ALLES!(?)
Bin alter [DOS]BorlandPascaler, habe meist 'zu Fuß' programmiert, ohne ObjectPascal usw.

So manche Delphi-Tipps musste ich in den Foren zusammenbetteln.
Es ist spitze, wie schnell und gekonnt die Antworten kommen,
aber auf die Dauer wäre doch ein bischen Unabhängikeit nicht das Schlechteste, oder?

Vielen Dank erstmal!!!

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Hatte mal was gefunden, getestet mit D7

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function LWLesen(lw:char;var VolumeName,Seriennummer:string):boolean;
 var FileNameLen,Seriennr,SystemFlags:longword;
 CDName,FileSys:array[0..max_path-1] of char;
begin
  result:=GetVolumeInformation(PChar(lw+':\'),@CDName,max_path,@Seriennr,
  FileNameLen,SystemFlags,@FileSys,max_path);
  VolumeName:=string(CDName);
  if VolumeName='' then VolumeName:='-- kein --';
  Seriennummer:=IntToHex(Seriennr,8);
end;

procedure TForm1.Button1Click(Sender: TObject);
 var sname,snummer:string;
begin
  if not lwlesen('E',sname,snummer)then showmessage('Fehler')
  else begin
  label1.caption:='Laufwerksname: '+sname;
  label2.caption:='Seriennummer: '+snummer;
end;

DarkLord05 · Verfasst: Fr 06.10.06 22:37

uliversum hat folgendes geschrieben:

Hallo Delphi-Freunde!
[...]
Ob es ein Delphi-Buch gibt?, in welchem nach bestimmten Themen Stichwortartig aufgelistet ist,
was für Befehle es gibt?
[...]

Markier mal in Delphi nen befehl und drück ma "F1". Damit sollte sich die Delphi Online Hilfe mit der API öffnen. Da sollte alles aufgelistet sein.

uliversum · Verfasst: Sa 07.10.06 22:22

HAllo Blackheart666!

Danke dir für den Tip!!!
Werde es testen und mich wieder melden-
bis dahin vielen Dank!

uliversum · Verfasst: So 08.10.06 22:52

HAllo Blackheart666!

Klappt hervorragend mit deinem Tip, danke nochmal!!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme