Скачать: CL | DM;

Запутался в указателях.. =(   Найти похожие ветки 

← →
Grizl   (2003-01-30 12:03) [0]

Хм.. есть тип:

-----------------------------------
TYPE
PDISK_GEOMETRY = ^DISK_GEOMETRY;
DISK_GEOMETRY = RECORD
Cylinders: TLARGEINTEGER;
MediaType: MEDIA_TYPE;
TracksPerCylinder: DWORD;
SectorsPerTrack : DWORD;
BytesPerSector : DWORD;
END;
-------------------------------------

Где то в программе:

SourceDriveGeometry : PDISK_GEOMETRY;

Опять где то в программе:

DeviceIoControl(hDevice,
IOCTL_DISK_GET_DRIVE_GEOMETRY,
nil,
0,
SourceDriveGeometry,
sizeof(SourceDriveGeometry^),
junk,
nil);
---- вырезано ..


Как мне доступиться к переменной SourceDriveGeometry.TracksPerCylinder ? Никак не получается.. Выдает ошибку.

---

← →
Dona ©   (2003-01-30 12:15) [1]

SourceDriveGeometry^.TracksPerCylinder ?

---

← →
Grizl   (2003-01-30 12:30) [2]

БЛИН.. :) Решил проблему :))) Давно не программил... Память забыл выделить :)))))

---

← →
Digitman ©   (2003-01-30 12:33) [3]

SourceDriveGeometry : PDISK_GEOMETRY;
...


New(SourceDriveGeometry); //!!!!!


try
DeviceIoControl(hDevice,
IOCTL_DISK_GET_DRIVE_GEOMETRY,
nil,
0,
SourceDriveGeometry,
sizeof(SourceDriveGeometry^),
junk,
nil);
ShowMessage(IntToStr(SourceDriveGeometry.TracksPerCylinder));
finally

Dispose(SourceDriveGeometry); //!!!!!


end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c