| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Метка диска [D7, Win95/98, WinME, NT4, Win2k, WinXP]

UserForever ©   (2003-10-08 20:08:00) 

Уважаемые мастера! Помогите чайнику! Как определить метку диска (Cd - Rom) и чтоб при вставке CD программа об этом знала?

---

HolACost!   (2003-10-09 12:06:00) [1]

аге "а чтобы знала"? :)))
WM_CHANGEDEVICE

---

xxxXXxx   (2003-10-09 10:16:00) [2]

Вредно чайникам давать такие советы ;)

---

Soi   (2003-10-09 07:24:00) [3]

procedure TForm1.N11Click(Sender: TObject);
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetVolumeInformation("C:\",nil,0,@VolumeSerialNumber,MaximumComponentLength,FileSystemFlags,nil,0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + "-" + IntToHex(LoWord(VolumeSerialNumber), 4);
beep;
showmessage("Серийный номер вашего диска "+SerialNumber);
end;

---

Zew   (2003-10-08 20:25:00) [4]

Примерно так
procedure TForm1.Button1Click(Sender: TObject);
var
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength,FileSystemFlags: Cardinal;
begin
GetVolumeInformation("g:\",VolumeName,MAX_PATH,@VolumeSerialNo,
MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH);
Memo1.Lines.Add("VolumeName = "+VolumeName);
end;

---

Наверх