Проверка содержимого дискеты

← →
Volume © (2005-05-22 22:52) [0]

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

← →
Gero © (2005-05-22 22:56) [1]

Нефиг вирусмейкерством заниматься.

← →
Просто Джо © (2005-05-22 22:56) [2]

А почему не реально? В обработчике он CloseQuery главной формы читаешь файл, дальше либо подтверждаешь, либо отменяешь закрытие.
А к чему такие телодвижения??

← →
Просто Джо © (2005-05-22 22:57) [3]

> он CloseQuery

OnCloseQuery

← →
Volume © (2005-05-22 23:22) [4]

А можете показать пример кода?
А то я с Delphi не очень давно знаком.

← →
Anatoly Podgoretsky © (2005-05-22 23:24) [5]

Давить а зародыше.

← →
Zacho © (2005-05-23 00:18) [6]

Volume © (22.05.05 23:22) [4]

А можно почитать хоть какой-нибудь учебник ? Не обязательно по Дельфи, можно и по Паскалю.

← →
Marser © (2005-05-23 00:29) [7]

Это такой Hasp-наоборот :-) Для непродвинутых :-D

← →
Anatoly Podgoretsky © (2005-05-23 00:30) [8]

Да простой вирус, выключается дискетой. Пока не поставишь - наслаждайся.

← →
Германн © (2005-05-23 02:30) [9]

2 Marser © (23.05.05 00:29) [7]
>Это такой Hasp-наоборот :-) Для непродвинутых :-D

--------------------------------------------------------------------------------
2 Anatoly Podgoretsky © (23.05.05 00:30) [8]
>Да простой вирус, выключается дискетой. Пока не поставишь - наслаждайся

Может быть вы и правы. Но, имхо, очень не похоже.

Более похоже на "Контрольную работу". (Это к Marser)

У меня есть (было) реальное требование одного из покупателей(заказчиков) по ограничению прав пользователей программы на "Выход из нее". Программа требовала при выходе из нее подтверждения прав пользователя на сие действие путем приложения проксикарты к считывателю и анализировала права сей карты.

Возвращаясь к сабжу - это может быть "упрощенный" мой вариант.

← →
Просто Джо © (2005-05-23 02:36) [10]

> [9] Германн © (23.05.05 02:30)

Дык, а собственно, уже и ответил в [2]. Дополнительных вопросов от автора не последовало. Чего тут еще?

← →
Германн © (2005-05-23 02:46) [11]

2 Просто Джо © (23.05.05 02:36) [10]
Дык и я, собс-но, не упрекал Вас. Я обращался конкретно к неким постам неких лиц.

> [4] Volume © (22.05.05 23:22)
> А можете показать пример кода?
> А то я с Delphi не очень давно знаком.

Вот пример кода.
В обработчике события OnCloseQuery пишем код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); const AFileName = "A:\file.txt"; var FileVar: TextFile; OldErrorMode: UINT; S: string; begin OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS); try if not FileExists(AFileName) then CanClose := False else begin AssignFile (FileVar,AFileName); Reset (FileVar); try ReadLn (FileVar,S); CanClose := S = "123" finally CloseFile (FileVar); end; end; finally SetErrorMode(OldErrorMode) end; end;

Только вряд ли этот код будет тебе полезен, лучше бы вместо ерунды книжку почитал.

Ну, или так, пожалуй, лучше:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); const AFileName = "A:\file.txt"; var FileVar: TextFile; OldErrorMode: UINT; S: string; begin CanClose := False; OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS); try if FileExists(AFileName) then begin AssignFile (FileVar,AFileName); Reset (FileVar); try ReadLn (FileVar,S); CanClose := S = "123" finally CloseFile (FileVar); end; end; finally SetErrorMode(OldErrorMode) end; end;

Германн © (23.05.05 02:30) [9]
Ты прав, именно так в кавычках, допустим ты обычный пользователь, то я бы с удовольствием посмотрел не твое лицо, когда у тебя появится счастье пообщаться с этой "программой".
Например я видел, как переинсталировали Виндоус, после того как кому то захотелось пошутить с мышкой, кнопками.

Проверка содержимого дискеты Найти похожие ветки