Содержание материала

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.

  

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить