Тема: курсовик
Показать сообщение отдельно
  #15  
Старый 10.11.2011, 19:41
Stalker999 Stalker999 вне форума
Прохожий
 
Регистрация: 28.10.2011
Сообщения: 36
Репутация: 10
По умолчанию

Вот я и пытаюсь, пока вот что есть
PHP код:
procedure TForm1.FormCreate(Sender: TObject);
var
inifile:tinifile;
begin
inifile 
:= tinifile.create('test.ini');
 
sskinmanager1.SkinName:=inifile.ReadString('FF', 'sSkinmanager', 'Skinname');
 
inifile.Destroy;
end; 

PHP код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
inifile:tinifile;
begin
inifile 
:= tinifile.create('test.ini');
 
inifile.WriteString('FF', 'sskinmanager', 'skinname');
 
inifile.Free;
end; 
но при запуске всё равно один и тот же скин(правда не тот что изначально установлен)
Ответить с цитированием