Как-то недавно хотел найти тексты данной игры под Дельфи безо всяких там наворотов и непонятных ДЛЛ, но нифига у меня не получилось. Поэтому написал сам. Может кому из студентов пригодится. Компьютер правдо играет безо всякой логики через Randomize, но можно и подучить его.
»»» Скачать: исходные тексты (16кб) демонстрационный EXE файл (226кб)
Небольшая программка для получения информации об окне: класс, хэндл и текст. Так же показывает пароли за звёздочками. Для получения информации перехватывает двжения мыши и работает с окном под курсором.
»»» Скачать: исходные тексты (30кб) демонстрационный EXE файл (15кб)
function GetVersionEx(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;
Аргумент функции – структура TOSVersionInfo, содержит DwVersionInfoSize:DWORD – заполняется как sizeof TOSVersionInfo) перед вызовом функции DwMajorVersion:DWORD – старшая цифра версии Windows Win NT 3.5 = 3 Win NT 4.0, Win9x = 4 Win2000 = 5 Win XP = 5 DwMinorVersion: DWORD – младшая цифра версии Win NT 3.51 = 51 Win NT 4.0 = 0 Win 95 = 0 Win98 = 10 (вообще говоря больше 0 Win 2000 = 0 Win XP = 1
DwBuildNumber: DWORD Win NT 40 – номер билда Win 9x – старший байт – старшая и младшая цифры версии / младший – номер билда
dwPlatformId: DWORD VER_PLATFORM_WIN32s Win32s on
Windows 3.1. VER_PLATFORM_WIN32_WINDOWS Win32 on Windows 9x VER_PLATFORM_WIN32_NT Win32 on Windows NT, 2000 !
SzCSDVersion:DWORD NT – содержит PСhar с инфо о установленном ServicePack 9x– доп. инфо, может и не быть
Комментарий от Ошин Влад (RV@fss.moris.ru) я делаю так
R:=TRegistry.Create; R.RootKey:=HKEY_LOCAL_MACHINE; R.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False); No:=R.ReadString('Version'); //ну и все прочее из этого ключа R.Free;
Комментарий от BAHO (qvitron@mail.ru) Считаю нужным дополнить код Ошина Влада. В NT подобных ОС надо писать так: R.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion', False);
Форматирование дисккеты
Доброе время суток, Дамы и Господа. Кто знает, как отформатировать дискету?
Передача сообщений с одного компа на др.
Мастера! Помогите, пожалуйста! Мне нужно настроить COM порт на передачу сообщения(с клавиатуры) с одной рации на другую(...
Обзор формата DIB и компонентов для работы с ним.
Если вы когда-либо занимались программированием для Windows, то наверняка знаете, что растры (bitmaps) встречаются повсюду. Это происходит не только из-за того, что графический формат BMP является единственным, который непосредственно поддерживается Windows ( не считая значков (icons), возможности которых крайне ограничены). Просмотрите любое руководство по программированию для Windows, и вы найдете в нем такие функции, как CreateBitmap() , LoadBitmap() , StretchDIBits() и BitBlt() для создания, загрузки и вывода растров на экран, однако вы не обнаружите аналогичных функций для других графических форматов - например PCX, TIFF или GIF. Следовательно, вы не сможем сколько-нибудь заметно продвинуться в программировании игр для Windows, если не научитесь работать с растрами.
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.
Для души
Хокку дня
Поймаю сверчка - посажу В бутылку с дешевым портвейном Что ж не пиликаешь,сволочь?
Афоризмы
Времена редко бывают хуже, чем люди...(Н. Мейлер)
Фраза дня
Кулер тоже вертолет. Только маленький еще.
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Вотерлу в Небраске (США) брадобреям и парикмехерам запрещено есть лук с 7-ми утра до 7-ми вечера.
В Небраске (США), где и моря и в помине нет, запрещается ловить китов.
И на закуску коротенький анекдот
- Как ты приучила своего мужа раньше возвращаться домой? - Очень просто. Приходит он в очередной раз за полночь, а я и окликаю из комнаты: "Вася, это ты?" - А он? - А он Коля.