| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Системное программирование [D5, Win95/98]
Valerik © (2002-11-01 15:28:00)Народ, напишите кто знает, как прочитать серийный номер винта?
Kotka (2002-11-02 01:19:00) [1]а х.з. пошут че попало, а потом разбирайся!!!
apay (2002-11-02 00:43:00) [2]2 Kotka: вроде бы речь идет о информации винта, а не раздела.
под Win9x можно юзать Smartvsd.vxd, под NT - как то по другому, сейчас не помню.
Kotka (2002-11-02 00:04:00) [3]
function tform1.GetVolumeInfoFVS(const Dir:string;
var FileSystemName,VolumeName:string;var Serial:longint):boolean;
{Получение информации о диске
Dir - каталог или буква требуемого диска
FileSystemName - название файловой системы
VolumeName - метка диска
Serial - серийный номер диска
В случае ошибки функция возвращает false}
var
root:pchar;
res:longbool;
VolumeNameBuffer,FileSystemNameBuffer:pchar;
VolumeNameSize,FileSystemNameSize:DWord;
VolumeSerialNumber,MaximumComponentLength,FileSystemFlags:DWORD;
s:string;
n:integer;
begin
n:=pos(":",Dir);
if n>0 then s:=copy(Dir,1,n+1) else s:=s+":";
if s[length(s)]=":" then s:=s+"\";
root:=pchar(s);
getMem(VolumeNameBuffer,256);
getMem(FileSystemNameBuffer,256);
VolumeNameSize:=255;
FileSystemNameSize:=255;
res:=GetVolumeInformation(Root,VolumeNameBuffer,VolumeNameSize
,@VolumeSerialNumber,
MaximumComponentLength, FileSystemFlags
,FileSystemNameBuffer,FileSystemNameSize);
Result:=res;
VolumeName:=VolumeNameBuffer;
FileSystemName:=FileSystemNameBuffer;
Serial:=VolumeSerialNumber;
freeMem(VolumeNameBuffer,256);
freeMem(FileSystemNameBuffer,256);
end;
это можно найти ВЕЗДЕ! Я уверен, что в базе готовых решений это тоже есть!!!!!!!!!!!!
Valerik (2002-11-01 15:40:00) [4]Да, тама путного ничего нет! Че, так сложно прочитать?
Song (2002-11-01 15:36:00) [5]А соседнее сообщение в ломы посмотреть?
| |
