Hallo, wie kann ich feststellen wie eine Diskette oder eine Festplatte benannt ist? Danke!
Announcement
Collapse
No announcement yet.
Disketten-Name (label)
Collapse
X
-
Hallo Peter,<br>
<br>
versuch's mal mit der API-Funktion<br>
<br>
<b>GetVolumeInformation</b><br>
<br>
Als Beispiel hab' ich dazu ein Formular mit zwei Edit Feldern benutzt.<br>
In Edit1.Text wird dann der Rootpfad des abzufragenden Laufwerkes<br> eingegeben (z.B. A:\).<br>
In das OnExit von Edit1 kommt dann die Ermittlung des Namens, so dass<br>
Du mit TAB die Funktion startest.<br>
In Edit2.Text steht dann der Name.<br>
<br>
Wenn Du in Edit1 eine Kombination aus \\COMPUTERNAME\SHARE\ angibst,<br>
MUSS diese mit Backslash enden (ggf. siehe Doku der Funktion<br>
in der Delphi Hilfe).<br>
<br>
Beispiel:<br>
<br>
<b>procedure</b> TForm1.Edit1Exit(Sender: TObject);<br>
<br>
<b>Var</b><br>
sRootPathName : String;<br>
sVolumeNameBuffer : String;<br>
dwVolumeNameSize : DWord;<br>
dwDummy : DWord;<br>
<br>
<b>begin</b><br>
sRootPathName := Edit1.Text;<br>
dwVolumeNameSize := MAX_PATH;<br>
sVolumeNameBuffer := StringOfChar(#00,dwVolumeNameSize+1);<br>
GetVolumeInformation(PChar(sRootPathName),<br>
PChar(sVolumeNameBuffer),<br>
dwVolumeNameSize,<br>
nil,<br>
dwDummy,<br>
dwDummy,<br>
nil,<br>
dwDummy);<br>
sVolumeNameBuffer := Trim(sVolumeNameBuffer);<br>
Edit2.Text := sVolumeNameBuffer;<br>
<b>end;</b><br>
<br>
<br>
Ciao<br>
Chri
Comment