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

Речь пойдет о том как собрать информацию о системе. Особенно ту которая отличается на разных компьютерах. Её папках, местонахождении системных(и не очень) файлов, устройствах, и пр.
Этот урок я проведу в обычном текстовом виде, чтобы вы могли скопировать исходники и не париться по поводу ручного ввода.

Итак начнём.
Для начала объявим парочку констант:

const
folders = 'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';
WinVers = 'Software\Microsoft\Windows\CurrentVersion';

Это ключи реестра в которых будем искать информацию. Мы записали их в константы чтобы не париться каждый раз с их вводом.

Еще нам понадобиться вот функция котой мы будем быстро и безболезненно извлекать информацию из реестра(Можете не париться с её реализацией):

function WinInfo(Root_Key: HKEY; Key_Open, Key_Read: string): string;
var
registry: TRegistry;
begin
//если Windows NT, открываем другой ключ
if ((GetVersion and $80000000)=0) and (Key_Open=WinVers) then
Key_Open:='SOFTWARE\Microsoft\Windows NT\CurrentVersion';
Registry := TRegistry.Create;
try
Registry.RootKey := Root_Key;
Registry.OpenKey(Key_Open, False);
Result := Registry.ReadString(Key_Read);
finally
Registry.Free;
end;
//если ничего не найдено, выводим "невозможно определить"
if Result<>EmptyStr then Result:=Key_read+': '+Result else Result:=Key_read+': невозможно определить';
end;

Код который будет далее можете вставить в любой обработчик:

Узнаем директорию Windows.
var
buffer:array [0..255] of char;
windir:string;
begin
GetWindowsDirectory(buffer, SizeOf(buffer));
windir:=buffer;
end;

Имя пользователя и версия ОС
var
OS,User:string;
begin
User:=WinInfo(HKEY_LOCAL_MACHINE,WinVers,'RegisteredOwner');
OS:=WinInfo(HKEY_LOCAL_MACHINE,WinVers,'ProductName');
end;

Пути к системным папкам
var
Desktop,Favorites,Fonts,AppData,Music,Pictures,Personal,Menu:string
begin
Desktop:=WinInfo(HKEY_CURRENT_USER,folders,'Desktop'); //Функция возвращает путь к папке рабочего стола
Favorites:=WinInfo(HKEY_CURRENT_USER,folders,'Favorites'); //Функция возвращает путь к папке c избранным
Fonts:=WinInfo(HKEY_CURRENT_USER,folders,'Fonts'); //Функция возвращает путь к папке со шрифтами
AppData:=WinInfo(HKEY_CURRENT_USER,folders,'Local AppData'); //Функция возвращает путь к системной папке AppData/Local/ Music:=WinInfo(HKEY_CURRENT_USER,folders,'My Music'); //Функция возвращает путь к папке с музыкой
Pictures:=WinInfo(HKEY_CURRENT_USER,folders,'My Pictures'); //Функция возвращает путь к папке с картинками
Personal:=WinInfo(HKEY_CURRENT_USER,folders,'Personal'); //Функция возвращает путь к папке с документами
Menu:=WinInfo(HKEY_CURRENT_USER,folders,'Start Menu'); //Функция возвращает путь к папке в которой находятся программы из меню пуск
end;

Получаем информацию о дисках(на форме должен быть компонент Memo1)
var
drive:string;
i:integer;
a: DWord;
SerialNum: PDWord;
buffer:array [0..255] of char;
begin
GetWindowsDirectory(buffer, SizeOf(buffer)); // заполняем buffer

//Получаем информацию о дисках
for i := 0 to 25 do
if (GetLogicalDrives and (1 shl i)) <> 0 then begin
Drive:=Char(Ord('A') + i) + ':\';
case GetDriveType(PChar(Drive)) of
DRIVE_REMOVABLE: Memo1.Lines.Add(Drive+' (гибкий диск)');
DRIVE_CDROM: Memo1.Lines.Add(Drive+' (CD-ROM)');
DRIVE_FIXED: begin
//находим серийный номер жесткого диска
new(SerialNum);
if getVolumeInformation(pChar(Drive),buffer,sizeof(buffer),SerialNum,a,a,nil,0) then
Memo1.Lines.Add(Drive+' (жесткий диск, S\N '+Inttostr(SerialNum^)+')');
end;
else Memo1.Lines.Add(Drive+' (неизвестный диск');
end;
end;
end;

В коде использован компонент Memo1. Вы при желании можете выводить куда угодно.

Информация о памяти(Также должен быть компонент memo1)
var
ms: TMemoryStatus
begin
GlobalMemoryStatus(MS);
Memo1.Lines.Add('Оперативная память: '+FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024));
Memo1.Lines.Add('Свободно на жестком диске: '+FormatFloat('#,###" байт"',DiskFree(3)));
//"3" указывает на диск C:\
Memo1.Lines.Add('Объем жесткого диска: '+FormatFloat('#,###" байт"',DiskSize(3)));
Memo1.Lines.Add('');
end;

Фух… ну все. Если найдете ошибки — пишите в комментах.
До встречи!

Буквально 5 минут назад мы с Рахимом закончили подготавливать для вас свежее видео.

В нём рассказывается об основах шифрования текста. Самое то для новичков!

Смотреть видео:

Видео для вас подготовили Рахим Абдусалимов и Артём Кашеваров.

В этом видео:

- программно вызываем окно завершения работы windows
- программно нажимаем на кнопку пуск

Смотрим видео:

Видео для вас подготовил Рахим Абдусалимов
rahim_gonzales@mail.ru

Сегодня я расскажу вам как инвертировать все цвета на экране:

Смотреть видео:

Вот и всё.
У нас тут выпало дофига снега. Машина из за холода отказалась заводиться. Буду менять аккумулятор, давно уже пора =(
А то всё «прикуриваю» и «прикуриваю» от других машин. А как ваши железные кони поживают?
Ответьте в комментах

Подготовил новое видео, из него вы узнаете:

- Как ограничить перемещение мыши определённой областью
- Как отключить отображение курсора?
- Как поменять местами левую кнопку мыши с правой?
- Как программно переместить положение мыши?

Смотрим видео:

Поделитесь видеозаписью через социальные кнопки ниже, буду вам очень благодарен

Ок, давайте к делу:

Сегодня подготовил видео о том как научить компьютер разговаривать.
В прошлый раз товарищ Кирилл Шин делал подобное видео на C#. Это видео для языка Delphi.

Видео ниже —

Если есть что добавить — пишите в комментах.
P.S. Буду рад если поделитесь с другими используя социальные кнопки ниже.

Запуск Delphi без создания нового проекта
Если вы не хотите, чтобы каждый раз при запуске Дельфи у вас открывался пустой проект, пропишите в свойствах ярлыка следующую командную строку:
delphi6.exe -np

А если добавить еще один параметр, то Дельфи будет стартовать без своего окна-логотипа:
delphi6.exe -np -ns

Запомнить открытые закладки
Если вы хотите, чтобы Delphi запомнила, с какими модулями вы работали, и автоматически открыла бы их при вашем следующем возвращении к проекту, зайдите в меню и поставьте галочки:
Tools > Environment options > Preferences > Autosave options > Project desktop

Кстати, при этом будут запоминаться не только открытые юниты, но и установленные в них breakpoints!

Как поставить BreakPoint
Нужно всего-то щелкнуть мышкой слева от окна кода — появится красный кружок и строка также станет красной. Теперь можно запустить программу (F9): она дойдет до этой строки и останавливается. Далее можно продолжить выполнение по действиям (F7) или по блокам (F8). Разница в том, что по F7 она будет заходить во все подпрограммы и составные конструкции, а по F8 — довольно шустро перепрыгивать через них.

В процессе трассировки можно навести курсор на любую переменную в тексте программы, и ее текущее значение отобразится в виде всплывающего хинта!
Значение переменной можно посмотреть и другим способом (в специальном окне):
Ctrl + F7

Если задолбали exception
Бывает так, что какой-то блок кода выдает исключительные ситуации, которые мешают запускать проект. Эти неприятные события можно временно отключить! Для этого ставим 1-ый BreakPoint в начале блока, в его свойствах ставим галочку:
Breakpoint Properties > Advanced > Actions > Ignore subsequent exceptions

Сразу же в конце блока ставим 2-ой BreakPoint, и в его свойствах ставим галочку:
Breakpoint Properties > Advanced > Actions > Handle subsequent exceptions

Теперь это место будет проскакиваться без задержек и всплывающих диалогов подтверждений!

Как поставить Якорь
Предположим, у вас уже объемный модуль, и вам нужно что-то посмотреть в каком-то месте далеко выше или ниже, а затем быстро вернуться к текущей позиции.
Ctrl + Shift + цифра 0..9

Слева появится маркер с соответствующей цифрой. Теперь, чтобы вернуться сюда из любого места модуля, достаточно нажать
Ctrl + цифра 0..9

В каждом модуле можно поставить до 10 подобных якорей (цифры 0..9) и мгновенно перемещаться между ними!

Быстрое перемещение от заголовка подпрограммы к ее телу (и обратно)
Вот вы пробегаете по секции описания, находите заголовок нужной функции или процедуры, хотите перейти на нее. Но ее тело может находится тысячью строками ниже!
Ctrl + Shift + Стрелка Вниз

И вы сразу же оказываетесь в ее теле, прямо под строкой begin.
Хотите вернуться обратно? Нет ничего проще:
Ctrl + Shift + Стрелка Вверх

Но вот новая неприятность: подпрограмма в коде вызывается из другого модуля! Ничего страшного:
Ctrl + Щелчок мышью

Как быстро наделать пустых подпрограмм
Набив вручную несколько заголовков с описаниями подпрограмм, вы решили перейти к их телам. Неужели тоже вручную? Ни за что!
CTRL + SHIFT + C

Это же верно и для недостающих методов класса!

Изменить отступ для форматирования блока
Правила хорошего тона предписывают делать отступы для каждого логического уровня блока команд. Сделать-то не сложно, но как побыстрее исправить при ошибке? Выделяем фрагмент кода и… двигаем влево или вправо:
держим CTRL + K, нажимаем U или I

Шаблон составной конструкции
Если взять любую составную конструкцию (массив, кейс, класс), то в ее описании будет много статических повторяющихся символов. Так не будем печатать их руками, а просто выберем и вставим нужный шаблон:
Ctrl + J

Если даже выбирать не хочется, то можно еще быстрее: пишем сокращение и нажимаем всю ту же комбинацию клавиш!

Получить уникальный GUID
В некоторых случаях, например при создании интерфейса (программного, межклассового), необходимо указать уникальный идентификатор вида: ['{50564FE6-A3F0-46F5-B142-4FBC14D06915}']
Ctrl + Shift + G

Сброс программы
Ну что же, уже все отлично, точнее — почти все. Программа внезапно заглючила и отказала закрываться. Экстренный сброс:
Ctrl + F2

ТОЛЬКО НЕ УМИРАЙ!
Не удержался я, все же приведу один секрет из области программирования. Программы, которые выполняют длительные обработки в циклах (например математические вычисления), выглядят повисшими или умершими, т.к. не реагируют ни на что до завершения цикла.
Чтобы все же время от времени возвращать их к жизни, позволив например среагировать на нажатие кнопки ОТМЕНА или обработать другие накопившиеся события, нужно в том долгом цикле изредка выполнять команду
Application.ProcessMessages;

На этом всем спасибо, все свободны

Сейчас я объясню вам что присходит:
Мало кто из вас знает но уже давным давно была выпущена гениальная по своей сути игра!
Это 3D экшен использующий все современные технологии с ахрененной графикой и весом всего в 96 Килобайт!

Я не отпечатался эта игра действительно весит меньше чем средняя игра на Dendy.
Гляньте скриншоты:

Игру можно скачать кликнув здесь Режим совместимости с Windows XP включить не забудьте.
Крайне рекомендуется к ознакомлению всем программистам без исключения.

Вот так вот. Пока мы покупаем игры по 8-20 Гб. Есть вот такие гении программирования которые создают такие проекты.
Кстати создатели получили награду за свои достижения на German Game Developer Award:

Все игровые ресурсы — текстуры, модели, геометрия уровня, музыка и звук — генерируются с помощью различных алгоритмов. Текстуры генерируются в реальном времени. Музыка и звук в игре синтезируются и воспроизводятся так же в реальном времени многофункциональным синтезатором V2 собственной разработки. Исполняемый файл игры запакован программой kkrunchy. По словам разработчиков, игра занимала бы около 200—300 МБ, если бы использовалось традиционное хранение предварительно подготовленных игровых ресурсов.

Берите с них пример!
Жду ваших комментариев по этому поводу.

Как делать массивы если памяти мало и её очень жалко?
Конечно с применением динамических массивов!

В свеженьком видео всё описано:

Есть еще один способ создавать динамические массивы — через операции напрямую связанные с памятью и адресами в памяти. Но на мой взгляд такой метод излишне брутален и не оправдан, так как читается он в коде заметно сложнее. Впрочем если кому то нужно будет только скажите — запишу.

Бай!
P.S. Чуть не забыл — С наступающим вас, друзья!

P.P.S. Вспомнился тут каламбурчик в тему:
— Почему программисты всегда путают Хеллоуин и Рождество?
— Потому что Oct 31 == Dec 25!