Изменить свойства системы

Code:

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) + '\System\Oeminfo.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.