Привет!
Подскажите как мне в моей программе узнать идет ли в данный момент чтение\запись с винта. Грубо говоря я просто хочу в проге продублировать лампочку винта на корпусе. Если можно, кусочки кода...

разве такое реально?

хотя что-то мне подсказывает, что даже если получится у-у-у-у-у-у-у-у-у-у-у-ужасно тормозить будет

Через порты это делается. В разделе ASM задай этот вопрос

_JB_
Попробуй считать содержимое порта 1f0h (Secondary) или 170h (Primary). По-моему какой-то бит а это отвечает.
-=::BlackCat::=-
Почему-бы это оно отормозило. Через таймер это делается. Чтобы меньше тормозило, надо поставить больший интервал.

я думал человек хочет синхронизировано, с лампочкои на корпусе

-=::BlackCat::=-
скорей всего, так оно и есть

youri
Спасибо, попробую так....
-=::BlackCat::=-
Действительно хочу, чтоб синхронно было. А тормозить оно по идее в натуре не должно, думаю, даже если в таймере 10мс поставить...

Написал вот такой код.... но глючит. Читайте комментарии походу....

Код

procedure TForm1.Timer2Timer(Sender: TObject); var istatus:word; label     noled; begin istatus:=0; try   asm   mov ax,0170h   out 70h,ax   //В этом месте ругается... пишет previleged instruction   in ax,71h    //Может это из-за ХР   test ax,0000000000000100b //Какой точно бит отвечает пока не знаю,                             //думаю протестить все...   jnz noled   mov istatus,0h   noled:   mov istatus,01h   end; except end; if istatus=1 then shape1.Brush.Color:=clred else shape1.Brush.Color:=clGreen; end;

БЛин... порты не сканятся..
Если это из-за ХР, то как от этого избавиться?

это действительно из-за XP ( точнее NT )
( чтение / запись портов -- операция не доступная простым программам )

как избавится -- писать ядреный драйвер

_JB_
совершенно точно, NT версии не дают работать с портами
делай как говорит
_hunter

_hunter
Albinos_x
А под 9х работать будет?

_hunter
А можно поподробнее, пожалуйста

_JB_
Под 9х должна работать

драйверы Винды НТ делятся на 2 класса: драйверы уровня ядра и драйверы уровня пользователя,
под вторым понимается драйвера, специфичные для защищеных подсистем .Например VDD, представляющюу 32 битную длл, созданную по правилам написания длл для винды, а её инициализация выполняется (если не ошибаюсь) функцией VDDInitialize, являющаяся аналогом функции DLLMain для обычных длл.
под первым - драйверы физических и виртуальных устройств уровня ядра(например WDM-драйвер). здесь существуют 3 уровня дров: низкий, промежуточный и высокий.
низкий - дрова работающие непосредственно с устройствами и не требующие прочих дров.
промежуточный - фильтры, дрова работающие с дровами нижнего уровня
высокий - дрова файловах систем и т. д.

.........

OUT XX,X - где XX:базовый порт; X:номер устройства
in S,XX+1 - где S-байт состояния устройства;XX+1:регистр команда/состояния
Обычно так пишется:
mov al,Dev
mov dx,port
out dx,al
inc dx
in al,dx

К примеру определение типа НГМД/НМД

Код

;Тип НГМД                mov     al,10h                out     70h,al                in      al,71h                mov     ds:[ngmd],al               ;Тип НМД                mov     al,12h                out     70h,al                in      al,71h                mov     ds:[ngmd+1],al               ;младший                mov     al,19h                out     70h,al                in      al,71h                mov     ds:[ngmd+2],al               ;старший                mov     al,1ah                out     70h,al                in      al,71h                mov     ds:[ngmd+3],al               ;конфигурация                mov     al,14h                out     70h,al                in      al,71h                mov     ds:[ngmd+4],al

Твои порты и устройства:
1F0h,0 - PriMaster
1F0h,1 - PriSlave
170h,0 - SecMaster
170h,1 SecSlave
1E8h,0 - TerMaster
1E8h,1 - TerSlave
168h,0 - QuaMaster
168h,1 - QuaSlave

Удачи.

По поводу доступа к портам через XP, поищи в инете компонент для Delphi: TSmallPort

если подробнее, то вот статья:
http://rusdoc.ru/material/os/nt/ntdriver.zip