Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.17;
Скачать: CL | DM;

Вниз

Ini files   Найти похожие ветки 

 
TrollXP   (2003-11-05 18:29) [0]

Привет, народ! Объясните, пожалуйста, как работать с ini файлами. Спасибо.


 
Владислав   (2003-11-05 18:32) [1]

А книги и хелп накой?!


 
Zew   (2003-11-05 18:35) [2]

Что то типо такого
var
IniFile: TIniFile;
IniPortItem: integer;
IniRTSChecked: boolean;
const
//значения по умолчанию
DefPortItem = 1;
DefRTSChecked = false;

procedure ReadIni;
var
IniPath: string;
FileName: string;
begin
GetDir(0,IniPath);
FileName:=IniPath+"\muk.ini";
IniFile:=TIniFile.Create(FileName);
IniPortItem:=IniFile.ReadInteger("Port","Number",DefPortItem);
IniRTSChecked:=IniFile.ReadBool("Port","RTS/CTS",DefRTSChecked);
IniFile.Free;
end;

procedure SaveIni;
var
IniPath: string;
FileName: string;
begin
GetDir(0,IniPath);
FileName:=IniPath+"\muk.ini";
IniFile:=TIniFile.Create(FileName);
IniFile.WriteInteger("Port","Number",IniPortItem);
IniFile.WriteBool("Port","RTS/CTS",IniRTSChecked);
IniFile.Free;
end;


 
Zacho   (2003-11-05 18:35) [3]

F1 - TIniFile
Там и примеры есть. А если что непонятно - спрашывай конкретно, что именно.


 
P0tia   (2003-11-05 18:35) [4]

procedure TForm1.FormDestroy(Sender: TObject);
var Ini: Tinifile; //необходимо создать объект, чтоб потом с ним работать
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+"MyIni.ini"); //создали файл в директории программы
Ini.WriteInteger("Size","Width",form1.width);
Ini.WriteInteger("Size","Height",form1.height);
Ini.WriteInteger("Position","X",form1.left);
Ini.WriteInteger("Position","Y",form1.top);
Ini.Free;
end;

А так вспоминать

procedure TForm1.FormCreate(Sender: TObject);
var Ini: Tinifile;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+"MyIni.ini"); //открываем файл
Form1.Width:=Ini.ReadInteger("Size","Width",100);
//последнее значение (100) это значение по умолчанию (default)
Form1.Height:=Ini.ReadInteger("Size","Height",100);
Form1.Left:=Ini.ReadInteger("Position","X",10);
Form1.Top:=Ini.WriteInteger("Position","Y",10);
Ini.Free;
end;


 
TrollXP   (2003-11-05 18:47) [5]

В принципе, с этим понятно. Спасибо. Но вот меня интересует, как в оболочках ауторана из ini файла читается, допустим, дескриптор программы, ее путь и т.п.


 
Владислав   (2003-11-05 18:54) [6]

Ну а почему бы их точно также не прочитать?


 
TUser   (2003-11-05 18:55) [7]

В корне любого диска, способного к ауторану пишется файл autorun.ini. А в нем [Open] и в опене open=твойПрограмм.EXE. Точнее - посмотри на любом авторанящемся диске.


 
TrollXP   (2003-11-05 18:59) [8]

2TUser
Ты меня не понял.
2Владислав
Ну, допустм
[PROGRAM]
TITLE = Такая-то
INSTALL = Такой-то файл
PATH = -//-
DESCRIPTION = -//-
И таких несколько. И как для определённой прогр. прочитать свое?


 
Плохиш_   (2003-11-05 19:05) [9]

[PROGRAM1]
[PROGRAM2]...

Когда думать-то начнёшь?


 
TrollXP   (2003-11-05 19:07) [10]

Утром :)



Страницы: 1 вся ветка

Текущий архив: 2003.11.17;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
1-56620
Zheks
2003-11-05 15:40
2003.11.17
Цвет шрифта в StringGride


1-56681
Felixx
2003-11-07 19:13
2003.11.17
Выделение неполной строчки в StringGrid


3-56521
ss300
2003-10-27 17:09
2003.11.17
DateTime


14-56881
default
2003-10-25 02:10
2003.11.17
Знатокам теории пределов


1-56758
McSimm2
2003-11-06 15:53
2003.11.17
Set of





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский