Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

Как определить метку диска (дискеты...)   Найти похожие ветки 

 
Alien   (2003-12-24 05:37) [0]

Как определить метку диска (дискеты...)
Нужно программно считать метку тома А:\, С:\


 
tesseract   (2003-12-24 11:29) [1]

GetVlolumeInformation - смотри описание в Windows SDK


 
Rouse_ ©   (2003-12-24 11:34) [2]

function TForm1.VolumeID(DriveChar: Char): string;
var
OldErrorMode: Integer;
NotUsed, VolFlags: DWORD;
Buf: array [0..MAX_PATH] of Char;
begin
OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
Buf[0] := #$00;
if GetVolumeInformation(PChar(DriveChar + ":\"), Buf, DWORD(sizeof(Buf)),
nil, NotUsed, VolFlags, nil, 0) then
SetString(Result, Buf, StrLen(Buf))
else Result := "";
if DriveChar < "a" then
Result := AnsiUpperCaseFileName(Result)
else
Result := AnsiLowerCaseFileName(Result);
Result := Format("[%s]",[Result]);
finally
SetErrorMode(OldErrorMode);
end;
end;


Желаю успехов


 
Alien   (2003-12-25 08:56) [3]

Ну пасиб, братаны....



Страницы: 1 вся ветка

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
3-43304
MadGhost
2004-02-11 22:42
2004.03.14
драйвер, для работы с базой данных, в текстовом файле?


1-43654
an-na2002
2004-03-02 04:24
2004.03.14
TEdit


1-43672
Тимур Айратович
2004-03-01 19:06
2004.03.14
Генератор .dbf из текстового файла


1-43463
i-s-v
2004-02-16 22:34
2004.03.14
Вопрос по контекстному меню.


3-43375
Санек
2004-02-13 18:16
2004.03.14
Теория коннекта