ini файл

[cheef]

Компонент алфа скины
Если кто нибудь уже работал с skinmanager.sknname в ини файл то можете подсказать.
Имя Skinname я плучю так:

procedure TForm1.FormCreate(Sender: TObject);
var st:string;
    a:integer;
    edit3:TEdit;
    cDir: string;
begin
GetDir(0,cDir); if cDir[length(cDir)] <> '\' then begin cDir := cDir+'\';
edit3.Text:=cDir;
sSkinManager1.SkinDirectory:=Edit3.Text+'data\skin';{В папке скинны фалы с расширением .asz}
slistbox1.Items.LoadFromFile('data/listbox.txt');
end;

procedure TForm1.sListBox1Click(Sender: TObject);
var a:integer;
begin
a:=slistbox1.ItemIndex;
form1.sSkinManager1.SkinName:=slistbox1.Items.Strings[a];
end;

[Stilet]

Вопрос то в чем?

[cheef]

как мне из лист бокса закинуть имя скина в ини фал, а потом с последующими запусками запускать с сохранённым(в ини файле) скином?

[Stilet]

Внизу страницы ссылки на примеры. Там есть наводки, записи и чтения из ИНИ.

[Gorychev]

Посмотрите здесь http://programmersforum.ru/showthread.php?t=45764 - должно помочь.

[cheef]

Спасибо большое вопрос решён)