Когда вы вызываете контекстное меню на иконке "Моего компьютера" и щёлкаете на команде "Свойства" - вы видите свойства системы. Эта статья позволит вам внести туда любой свой собственный текст и даже поместить рисунок!
Для начала давайте заглянем в папку System, находящуюся в директории Windows и найдём там файл инициализации с именем Oeminfo.ini, нужно его отредактировать так, чтобы он выглядел следующим образом: [General] Manufacturer="Производитель M$" Model="Модель, чёта, типа, 9x"
Здесь, как видно, должно быть всего два раздела: [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, т.к. данные текстового типа. Параметры у процедуры такие: Имя раздела, Имя ключа, Вносимое значение}
всего несколько простых упражнений по утрам помогут вам встретить новый день бодрыми и энергичными. * * * Расслабив кисти, начинайте открытыми ладонями постукивать себя по голове, как если бы вы играли на барабане.…
Расскажу, пожалуй, два случая, связанные с моей семьей. Объяснять - и пытаться не буду, просто так есть)))1. Мой прадед прожил тяжелую жизнь, две войны (1МВ и Великая отечественная), тяжелая работа, большая семья, которую…
Откройте оснастку Центр управления сетями и общим доступом. Для этого либо залезьте в Панель управления, либо щелкните правой кнопкой мыши по иконке в трее, символизирующей подключение к сети.В открывшемся Центре…
АДАМБуквальный перевод с древнееврейского - "из красной глины" (земля, из которой, по библейскому сказанию, был сотворен первый человек). Этим именем нарекают людей во многих странах. В раннем детстве нареченные этим…
История американского бизнеса -- это история деловых скандалов. В ряде случаев мошенники, представлявшиеся бизнесменами, демонстрировали невероятную фантазию и талант. Многие специалисты считают, что аферы в…
Каждый родитель серьезно готовится к вступлению ребенка в школьную жизнь: затрачивается немало сил и средств на приобретение "всего необходимого". Однако Просто одеть ребенка в красивую школьную форму и дать в руки…
Мы рады предложить нашим читателям первую из серии неопубликованных сочинений покойного Элифаса Леви (аббата Альфонса Луи Констана), одного из великих учителей оккультных наук нашего столетия на Западе. Бывший…
Причины понижения позиций сайта в выдаче поисковых систем — что надо учитывать, чтобы ваш сайт стоял на более высоких позициях в поисковых системах. Вот об этом и расскажем вам в этой статье.Оформление статейНаличие…
1. Солнечная энергетика экономит Ваши деньги.
В то время как обычные цены на электроэнергию продолжают идти вверх, полученная с помощью солнца электроэнергия стала на 99% дешевле, чем это было, например, в 1977 году - и 30%…
Иногда из-за нестабильности работы MySQL по тем или иным причинам, работа сайта может подвергаться опасности. Это неприятно сказывается на посещаемости, индексации поисковыми система и доставляет неудобство…