Хочу портировать свой проект и на Линукс тоже. Загвоздка в том, что мой проект использует модуль mmsystem, которого в Лине нет. Использует он его для получения информации о диске и извлечении CD-диска:
Код: Выделить всё
function GetVolumeInfo (const ADisc: WideChar): TDiscInfo;
var root: PChar;
res: LongBool;
VolumeNameBuffer, FileSystemNameBuffer: PChar;
VolumeNameSize,FileSystemNameSize: DWORD;
VolumeSerialNumber, MaximumComponentLength, FileSystemFlags: DWORD;
s: String;
begin
s:= ADisc + ':\';
root:= PChar(s);
GetMem(VolumeNameBuffer, 256);
Getmem(FileSystemNameBuffer, 256);
VolumeNameSize:= 255;
FileSystemNameSize:= 255;
res:= GetVolumeInformation(Root, VolumeNameBuffer, VolumeNameSize, @VolumeSerialNumber, MaximumComponentLength, FileSystemFlags, FileSystemNameBuffer, FileSystemNameSize);
with Result do
begin
diHasInfo:= res;
diDrive:= ADisc;
diVolumeName:= VolumeNameBuffer;
diFileSystem:= FileSystemNameBuffer;
diSerial:= VolumeSerialNumber;
end;
Freemem(VolumeNameBuffer, 256);
Freemem(FileSystemNameBuffer, 256);
end;
function EjectCD (const ADisc: WideChar): Boolean;
var Res: MciError;
OpenParm: TMCI_Open_Parms;
Flags: DWord;
S: String;
DeviceID: Word;
begin
Result:= False;
if ADisc = '' then
Abort;
S:= ADisc + ':';
if GetDriveType(PChar(S)) = DRIVE_CDROM then
begin
Flags:= mci_Open_Type or mci_Open_Element;
with OpenParm do
begin
dwCallback:= 0;
lpstrDeviceType:= 'CDAudio';
lpstrElementName:= PChar(S);
end;
Res:= mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
if Res <> 0 then
Exit;
DeviceID:= OpenParm.wDeviceID;
try
Res:= mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
if Res = 0 then
Exit;
Result:= True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;
end;
Есть ли другие варианты, для которых бы указанный код (или код, который будет аналогичен (или лучше) по функционалу) работал?
