Форум: "Система";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];

Вниз

Метка диска   Найти похожие ветки 

← →
UserForever   (2003-10-08 20:08) [0]

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

---

← →
Zew   (2003-10-08 20:25) [1]

Примерно так
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;

---

← →
Soi   (2003-10-09 07:24) [2]

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;

---

← →
xxxXXxx   (2003-10-09 10:16) [3]

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

---

← →
HolACost!   (2003-10-09 12:06) [4]

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

---

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

Форум: "Система";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c