Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: 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 вся ветка

Текущий архив: 2003.02.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
14-29101
Anatoly Podgoretsky
2003-01-26 02:04
2003.02.10
Именинники 26 января


14-29092
Supreme
2003-01-25 16:10
2003.02.10
Нужно раздобыть аналог Панели задач


1-28919
_jek
2003-01-30 19:15
2003.02.10
Упаковка базы DBF


1-28877
RomanaPro
2003-01-30 00:02
2003.02.10
Вывод информации на экран (TLabel)


3-28647
John
2003-01-23 14:41
2003.02.10
Експорт/Импорт