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

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

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