Війти
Как изменить свойства системы
20.05.2010 | Кат. Полезные заметки | 1916
Когда вы вызываете контекстное меню на иконке "Моего компьютера" и щёлкаете на команде "Свойства" - вы видите свойства системы. Эта статья позволит вам внести туда любой свой собственный текст и даже поместить рисунок!

Для начала давайте заглянем в папку System, находящуюся в директории Windows и найдём там файл инициализации с именем Oeminfo.ini, нужно его отредактировать так, чтобы он выглядел следующим образом:
[General]
Manufacturer="Производитель M$"
Model="Модель, чёта, типа, 9x"

[Support Information]
Line1="Поддержка: Delphi World ©"
Line2="Всё это написано из Delphi!"
Line3="...а Бил ГЕЙ, тс..."


Здесь, как видно, должно быть всего два раздела:
[General]
Указанные здесь данные будут отображаться в окне "Свойства: Система" на закладке "Общие".
[Support Information]
Информация о поддержки, которая будет видна в диалоговом окне появляющимся по нажатию на кнопке "Поддержка..." на той же закладке.

В разделе [General] есть два параметра (Manufacturer и Model), которым можно задавать любые значения.

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

Чтобы было ещё эффектнее можно поместить в окно свойств системы даже графический файл, для этого файл нужно сначала создать, используя любой графический редактор, учитывая главное условие - размер файла должен быть 127х127. Назвать файл нужно так: Oemlogo.bmp, а затем поместить в папку System, находящуюся в директории Windows.

Ну, а как же занести информацию в ini-файл программно?

Для взаимодействия с ini-файлами нужно сделать следующее:
Сначала в области uses нужно объявить модуль inifiles
Затем объявить переменную класса TIniFile
Выделить память под этот объект, т.е. создать его с помощью метода Create
А после уже можно заносить или считывать данные из этого ini-файла


Вид модуля должен быть примерно таким:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  inifiles;
{Объявляем модуль для взаимодействия с ini-файлами}
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
  Form1: TForm1;
implementation
{$R *.DFM}


{по созданию окна пишем следующий код}
procedure TForm1.FormCreate(Sender: TObject);
var
APChar: array [0..254] of char;
{сначала нужно узнать где у пользователя папка Windows - объявляем под это дело массив символов}
sFile: string;
{объявляем текстовую переменную под имя ini-файла}
Ini: TIniFile;
{и экземпляр класса TIniFile для взаимодействия с файлами инициализации}
begin
GetWindowsDirectory(APChar, 255);
{узнаём, где у чудилки находится каталог Windows}
sFile := string(APChar) + 'SystemOeminfo.ini';
{в текстовую переменную помещаем имя нужного нам файла}
if FileExists(sFile) then
{и если файл существует...}
begin
Ini := TIniFile.Create(sFile);
{связываем объявленную переменную с этим файлом}
{далее заносим данные, используя процедуру WriteString, т.к. данные текстового типа.
Параметры у процедуры такие: Имя раздела, Имя ключа, Вносимое значение}

Ini.WriteString('General','Manufacturer','"Производитель M$"');
Ini.WriteString('General','Model','"Модель, чёта, типа, 9x"');
Ini.WriteString('Support Information','Line1','"Поддержка: Delphi World ©"');
Ini.WriteString('Support Information','Line2','"Всё это написано из Delphi!"');
Ini.WriteString('Support Information','Line3','"...а Бил ГЕЙ, тс..."');
Ini.Free;
{ну, а под конец, сделав своё грязное дело, мы как порядочные... программисты - освобождаем занимаемую память}
end;
end;
end.


  • Мужские Имена на букву Е

    ЕВГЕНИЙПроисходит от древнегреческого слова, означающего: благородный. Маленький Женя поразит окружающих своей смекалкой. Он очень рано научится читать и писать. Большой фантазер. В школе - среди лучших, хорошо пишет…

  • 1888

    БлаватскаяЛюди обычно хотят, чтобы у их друзей был счастливый Новый год, и иногда кпожеланию №счастья¤ добавляется еще и пожелание №благополучия¤. Мало вероятно, чтобы такие пожелания сбылись в отношении людей,…

  • Установка JW Player для Flash v5

    Шаг 1: Скачать Установочный Zip архивЧтобы установить JW Player на страницы вашего сайта необходимо проделать несколько шагов.Шаг 2: Загрузить все файлы из архива на ваш сайт. Загрузите файлы player.swf, yt.swf и swfobject.js из архива на…

  • Оптимизация Ubuntu (и прочих Linux-ов) под SSD

    В данной мини-статье мне хотелось бы собрать и рассмотреть основные моменты оптимизации работы (и, конечно, продления жизненного цикла ) твердотельных накопителей. Практически всю информацию можно легко найти в сети,…

  • Автоматический кросспостинг в Twitter с RSS Лент

    Сейчас стало нормой размещать анонсы новых статей в твиттере, вконтакте, и друних социальных сетях. Причины у всех разные, но даже такой гигант, как vesti.ru завел микроблог.Кросспостинг с помощью  http://feedburner.google.com Для…

  • Мистическая смерть

    и для кого не секрет, что с первого дня своего рождения происходит физическое старение организма. Как нам приходит в голову, что процесс старения можно повернуть вспять? Если верить легендам – существуют индивидуумы,…

  • Автоматически завершать зависшие приложения.

     Эта опция используется для автоматического закрытия без всякого предупреждения всех зависших программ. Удобно при завершении работы компьютера, если приложение не отвечает, то не надо нажимать на кнопку, чтобы его…

  • Головоломка (2015) 3D мультфильм

      11 летней Райли, вместе с семьей предстоит переезд из обычного место проживания, небольшого уютного городка в мегаполис Сан-Франциско в новом мультике Головоломка, от студии Пиксар. Но девочка не в восторге от…

  • Внутренний источник

    История Кэтлин такова. Первые 14 лет ее жизни были связаны с христианством. Затем под руководством духовного учителя из Индии она изучала религии Востока, посвятив несколько лет восточной духовной практике. Но ни…

  • Откуда у детей столько энергии

    «И чем те дети живут? Божьим духом? Кушать не заставишь, домой не загонишь, только бегают с утра до вечера». Кто из нас об этом не знает! Но откуда у детей столько энергии? Обувь снашивается очень быстро. Не успеешь…


Комментарии

23 + 87 =