Блокировка доступа к флоппи-дисководу

[Fil]

Интересный факт - если зажечь лампочку в флоппике, то чтение, как и запись невозможны. Однако, как это сделать в Виндовсе ИксПи? Можно, если кто знает - и через Ассемблер на аппаратном уровне.

[RayShade]

Топику - огромный LOL.



Ну а автору советую - да вообще отключить флоп. ПО нынешним временамм кому он нафиг нужен то?

[Fil]

Конечно он мне нафиг не нужен! Это незыблемая истина! Проехали...

[alibek]

Windows XP и аппаратный уровень? Пиши драйвер.

[Fil]

Тогда параллельный вопрос: как заблочить сидюк или дивидюк? Надеюсь, они ещё не устарели

[Fil]

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

[neic]

Тогда параллельный вопрос: как заблочить сидюк или дивидюк? Надеюсь, они ещё не устарели

4 выхода:
1. Просто отключить CD/DVD
2. Постояно его(их) закрывать (программно)
3. Выключить питание
4. Тоскать с собой

[Fil]

neic
Так то оно так, но это мне не подходит. Спасибо за выходы

[Хакер]

Код: Выделить всё


Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, lpOverlapped As Any) As Long

[RayShade]

Тогда, заодно блокируй еще и USB, IEEE1394 и прочие интрефейсы, к которым можно подрубить bootable media

[Twister]

Ну вот, человек в поисках знаний пришел на форум, дзенствующий, можно сказать. А вы... Не стыдно, Rey?

[Andrey Fedorov]

Тогда параллельный вопрос: как заблочить сидюк или дивидюк? Надеюсь, они ещё не устарели

Тогда уж и прочие устройства не забудь, а то поразвелось у людей всяких флэшек...

[Хакер]

Зачаем все устройства, лучше сразу блокануть процессор

[ANDLL]

Интересный факт - если зажечь лампочку в флоппике, то чтение, как и запись невозможны. Однако, как это сделать в Виндовсе ИксПи? Можно, если кто знает - и через Ассемблер на аппаратном уровне.

Открываещ девайс A:\ с правами SHARE_EXCLUSIVE

Топику - огромный LOL.

RayShade, всегда замечал за вами способность видеть смешное в самых неожиданных местах. А что тут смешного?

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

Если аппаратный уровень - то ТОЛЬКО драйвер. Или ЧЕРЕЗ драйвер...

Код: Выделить всё

Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, lpOverlapped As Any) As Long

А это вообще каким местом тут? Вы слышали про эту API? Очень приятно. А что если я опубликую здесь все API, про которые я что либо слышал?

[Хакер]

Код: Выделить всё

Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, lpOverlapped As Any) As Long

А это вообще каким местом тут? Вы слышали про эту API? Очень приятно. А что если я опубликую здесь все API, про которые я что либо слышал?

Наверное тебя забанят за лишний гиг в базе данных А вообще попробуй.

[Fil]

И как мне в этих параметрах разбираться? Одна деклара мало чего мне дает. Я ее и в книге видел, да в лом было разьираться...

[alibek]

http://msdn.microsoft.com/library/

[ANDLL]

И как мне в этих параметрах разбираться? Одна деклара мало чего мне дает. Я ее и в книге видел, да в лом было разьираться...

Я уже выразил сомнения относительно того, чем тут может помоч данная функция...

[Twister]

Вообщем нарыл я тут кодик на делфях, надеюсь разберешся (если нет, тогда и флоп тебе блокировать не к чему):

Код: Выделить всё

const
FILE_DEVICE_FILE_SYSTEM: Integer = $00000009;
METHOD_BUFFERED: Integer = $00000000;
FILE_ANY_ACCESS: Integer = $00000000;

function CTL_CODE(DeviceType, FunctionNo, Method, Access: Integer): Integer;
begin
Result := (DeviceType shl 16) or (Access shl 14) or (FunctionNo shl 2) or (Method);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
LHandle: THandle;
BytesReturned: Cardinal;
MsgBuf: PChar;
FSCTL_LOCK_VOLUME: Integer;
begin
FSCTL_LOCK_VOLUME := CTL_CODE(FILE_DEVICE_FILE_SYSTEM, 6,
                                                  METHOD_BUFFERED, FILE_ANY_ACCESS);
LHandle := CreateFile('\\.\A:', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ
                      or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL or
                      FILE_FLAG_DELETE_ON_CLOSE, 0);
if LHandle <> 0 then
begin
   if DeviceIOControl(LHandle, FSCTL_LOCK_VOLUME, nil, 0, nil, 0, BytesReturned, nil) then
     ShowMessage('Дисковод заблокирован. Нажмите ОК для разблокирования.')
   else
   begin
     if FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER or
          FORMAT_MESSAGE_FROM_SYSTEM, nil, GetLastError(), 0, @MsgBuf, 0, nil) > 0 then
     begin
       ShowMessage('Ошибка DeviceIOControl: ' + MsgBuf);
       LocalFree(Cardinal(MsgBuf));
     end
     else
       ShowMessage('Ошибка при вызове DeviceIOControl!');
   end;
   CloseHandle(LHandle);
end
else
   ShowMessage('Ошибка при вызове CreateFile!');
end;

[ANDLL]

Господи! Ну почему люди всегда усложняют себе жизнь???

Код: Выделить всё

Option Explicit
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Sub Form_Load()
Dim hFile As Long
hFile = CreateFile("\\.\A:", &H80000000, 0, 0, 3, 0, 0)
MsgBox "Нажмите 'OK' что бы разблокировать дисковод"
CloseHandle hFile
End
End Sub


Ну неужели не у кого не хватило ума просто прочитать ВНИМАТЕЛЬНО все посты этого топика?????

[Twister]

Ну неужели не у кого не хватило ума просто прочитать ВНИМАТЕЛЬНО все посты этого топика?????

Кажись мы с тобой один и тот же код дали, только ты на VB.
Или нет?...

[ANDLL]

эээ
Совсем нет. Можно хотя бы заметить, что в моем коде нет упоминания про DeviceIOControl(а в твоем есть и много).

[Twister]

эээ
Совсем нет

Суть решения одна hFile = CreateFile("\\.\A:", &H80000000, 0, 0, 3, 0, 0). А DeviceIoControl используется для проверки. Вообщем почитай мой код...
Ну да ладно, не будем разводить демогогию...

[ANDLL]

Да ну??? А может ты сам ради интереса почитаеш свой код???
И попробуй убрать оттуда вызовы DeviceIOControl, девайс блоикроваться не будет. Ты вообще, понял хоть как действует ТВОЙ код? А мой?
Если в двух кодах есть две одинаковые API-функции это еще совсем не означает, что коды одинаковые.

[Twister]

Только сейчас прочитал внимательно. На счет просто проверки и сути решения - тут я оБшибся!... Сорри.

[Kovu]

Не совсем по теме, но что означает дельфовский оператор shl ? (Result := (DeviceType shl 16) or (Access shl 14) or (FunctionNo shl 2) or (Method))

[ANDLL]

Совершенно не знаю дельфи, но могу предположить, что shl=Shift Left.

[Twister]

Этот оператор сдвигает биты операнда влево. (кстати не только делфийский...)

[Fil]

Инересно, конечно, но меня всегда мучает вопрос, когда находишься на форуме по ВБ, а тут вдруг код из Дельфи или Си, может этим людям посидеть на форумах по другим языкам?
ANDLL
Спасибо, буду тестить!

[Twister]

может этим людям посидеть на форумах по другим языкам?

Дружиже, я прекрасно программирую на VB, Delphi и MASMе. С басика я начинал. Поэтому даю тот код, который быстрее найду. Если ты не можешь перевести с делфей на басик, то это говорит не в пользу твоих знаний. И на последок - если тебе не нравиться, как тебе помогают, то не задавай вопросы. Любой нормальный человек всегда рад любой помощи...