Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



Windows.

Надо узнать, где запрятана, на компьютере, эта глюченая, но родная система под названием windows:

  Private
   Windir: string;
   WindirP: PChar;
   Res: Cardinal;

//…

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinDirP := StrAlloc(MAX_PATH);
  Res := GetWindowsDirectory(WinDirP, MAX_PATH);
  if Res > 0 then
    WinDir := StrPas(WinDirP);
  Caption := WinDir;
end;

Теперь надо выяснить, что за windows и dos перед нами. Думаю, пару label и одной button хватит:

procedure TForm1.Button1Click(Sender: TObject);

var
  WinVersion, DosVersion: Word;
begin
  WinVersion := GetVersion and $0000FFFF;
  DosVersion := GetVersion shr 16;
  Label1.Caption:=IntToStr(Hi(DosVersion))+'.'+IntToStr(Lo(DosVersion));
  Label2.Caption:=IntToStr(Lo(WinVersion))+'.'+IntToStr(Hi(WinVersion));
end;




Warning: require_once(/home/program/programmersclub.ru/docs/60c3403e55019aa8da82c567fcf8afa0/sape.php): failed to open stream: No such file or directory in /home/program/programmersclub.ru/docs/wp-content/themes/xtreme/advertisement.php on line 4

Fatal error: require_once(): Failed opening required '/home/program/programmersclub.ru/docs/60c3403e55019aa8da82c567fcf8afa0/sape.php' (include_path='.:/home/program/programmersclub.ru/php') in /home/program/programmersclub.ru/docs/wp-content/themes/xtreme/advertisement.php on line 4