Программа "Hunter" сидит у вас в трее и ждет, когда к вашему компьютеру кто-нибудь подключится, при этом у вас прозвучит сигнал. Можно посмотреть с какой машины и какой пользователь подключен к вашему компьютеру, сколько файлов и какие открыты и время подключения. Можно отключить нежелательный компьютер нажав на кнопку "Отключит" или закрыть открытый файл отметив его и нажав "Delete". Нажав кнопку "Log файл" можно посмотреть список всех, кто побывал на вашем компьютере (или печатал через него) за текущий день и время подключения и отключения. Так же можно навесить горячую клавишу на запуск текущего Скринсавера. По ссылке пустой файл, а скачать можно: http://www.dimeda.by.ru/prog.shtml
Ps Смотрю скачивать перестали (было 1007 скачиваний только exeшника), оказывается удалили отсюда, почему и исходники есть и ссылки работают. А то что ссылки даю так у меня там счетчик
сидит.
»»» Скачать: исходные текстыдемонстрационный EXE файл
procedure TForm1.Button1Click(Sender: TObject); var CommPort : string; hCommFile : THandle; ModemStat : DWord; begin CommPort := 'COM2';
{Open the comm port} hCommFile := CreateFile(PChar(CommPort), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if hCommFile = INVALID_HANDLE_VALUE then begin ShowMessage('Unable to open '+ CommPort); exit; end;
{Get the Modem Status} if GetCommModemStatus(hCommFile, ModemStat) <> false thenbegin if ModemStat and MS_CTS_ON <> 0 then
ShowMessage('The CTS (clear-to-send) is on.'); if ModemStat and MS_DSR_ON!
<> 0 then ShowMessage('The DSR (data-set-ready) is on.'); if ModemStat and MS_RING_ON <> 0then ShowMessage('The ring indicator is on.'); if ModemStat and MS_RLSD_ON <> 0 then ShowMessage('The RLSD (receive-line-signal-detect) is on.'); end;
{Close the comm port} CloseHandle(hCommFile); end;
Эволюция средств разработки Web приложений в Delphi
Бурный рост интернета в последние годы привел к возможности и необходимости создания информационных систем, не требующих настройки и обслуживания на стороне клиента и при этом обеспечивающих одновременную работу большого количества пользователей... На сегодня существуют, как минимум, три технологии разработки Web приложений в Delphi...
Программирование баз данных в Delphi 6. Учебный курс (+дискета)
В книге описываются многочисленные визуальные и невизуальные компоненты, а также технологии, использующиеся для создания приложений баз данных. Последовательно рассматриваются три наиболее распространенных архитектуры баз данных — файл-серверная, клиент-серверная и трехзвенная. Многие описываемые технологии могут быть применены и в более ранних версиях пакета Delphi. Книга содержит также значительный объем тщательно отобранной и хорошо организованной справочной информации.
Автор: Фаронов В. В.
Разработка баз и банков данных, Access? Delphi, Oracle Все о разработке и проектировании баз данных, начиная с модели "сущность-связь", заканчивая готовым приложением на MS Access, Delphi, Builder... Описаяние и учебники по SQL, MySQL, MS Access, BDE... ...
» Оценка сайта: 2
Хокку дня
Что это там за потеха? Опять эти пьяные гейши Hасилуют бедного рикшу...
Афоризмы
Не создавайте себе чужих проблем.
Фраза дня
Другое достоинство этого недостатка состоит в том...
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Австралии каждый таксист (как кэбби сто лет назад) обязан постоянно возить в багажнике охапку сена. (вот бы гаишникам такой закон!) В этой стране также владельцы баров обязаны заботиться о лошадях посетителей.
В Алабаме (США) запрещено водить машину с завязанными глазами.
И на закуску коротенький анекдот
Учительница в школе грузит: - Вы знаете, дети, если человек плохо видит одним глазом, то вторым, как правило, он видит гораздо лучше. Кто-нибудь может привести аналогичный пример? Встает Вовочка и говорит: - Знаете, Марь Ванна, если у кого-то одна нога короче, то другая, обычно, длиннее.