Search results for 'Hard Disk Volume Name'. 1 post(s) found.
- 2007/08/25 How To Get Volume Name
Obtains the Volume Name of a indicated drive
function VolumeName(Laufwerk: Char): string;
var max, Flags: DWORD;
Buf: array [0..MAX_PATH] of Char;
begin
try
GetVolumeInformation(PChar(Laufwerk + ':\'), Buf, sizeof(Buf), nil, max, Flags, nil, 0);
Result := StrPas(buf);
except
result:='';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=(VolumeName('v'));
end;
var max, Flags: DWORD;
Buf: array [0..MAX_PATH] of Char;
begin
try
GetVolumeInformation(PChar(Laufwerk + ':\'), Buf, sizeof(Buf), nil, max, Flags, nil, 0);
Result := StrPas(buf);
except
result:='';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=(VolumeName('v'));
end;
Another posts included in "Delphi"
| How To Register Own File Types (0) | 2007/08/25 |
| How To Force The Correct Decimal Separator (0) | 2007/08/25 |
| How To Change Screen Resolution (0) | 2007/08/25 |
| How To Get Windows And System Directory (0) | 2007/08/25 |
| Get The Drive Type (0) | 2007/08/25 |
| How can I modify aliases programmatically ? (0) | 2007/08/25 |
| Setting TQuery SQL Statement (0) | 2007/08/25 |
GetVolumeInformation,
Hard Disk Volume Lable,
Hard Disk Volume Name,
HDD Volume Lable,
HDD Volume Name,
Volume Name
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 01:09
moneyideas
-
Subject different money making ideas
2010/01/29 09:30
moneyideas
-
Subject different money making ideas
2010/01/31 16:44
moneyideas
Prev
Rss Feed