Метка диска

← →
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]

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

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

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