Como Gravar o último skin selecionado?

Delphi

16/04/2007

Coloquei um listbox na minha aplicação onde eu carrego os skins e executo, porém os skin só fica enquanto a aplicação está rodando, quando fecho a aplicação e abro novamente, tenho que selecionar a skin de novo. Gostaria de saber como faço para gravar o caminho da skin para que quando abrir a aplicação novamente com o último skin selecionado?
Se alguém puder me ajudar ficarei muito grato?

Grato,

Vandeir

Tentei fazer com o arquivo ini com este artigo do active delphi, mas só cria o arquivo ini, sem o caminho.

No evento formCreate do formulário principal carrego uma Procedure chamada CarregarSkin.
procedure TFrmPrincipal.CarregarSkin;
var
i : integer;
Skin : string;
begin
LeIni(Skin); // Código abaixo..
i := ListBox1.ItemIndex;
ss := Skin;
SkinData1.SkinFile := ss;
if not SkinData1.Active Then SkinData1.Active := True;
end;

\\ Código da Procedure LerIni(ss);
procedure TFrmPrincipal.LeIni(var Caminho: String);
var
ArqIni : tIniFile;
begin
ArqIni := TIniFile.Create(´C:\Arquivos de Programas\ProCompany\ProCompany.Ini´);
Try
Caminho := ArqIni.ReadString(´Informação´, ´Caminho´, Caminho);
Finally
ArqIni.Free;
end;
end;

No Onclique do Botão “Fechar” do panel (ver 1º artigo) chame a procedure GravarIni();

GravaIni(ss); \\ Onde ss e a string que vai trazer o caminho da Skin Escolhida..

\\ Código da Procedure GravaIni(ss);
procedure TFrmPrincipal.GravaIni(Caminho: String);
var
ArqIni : TIniFile;
begin
ArqIni := TIniFile.Create(´C:\Arquivos de Programas\ProCompany\ProCompany.Ini´);
Try
ArqIni.WriteString(´Informação´, ´Caminho´, Caminho);
Finally
ArqIni.Free;
end;


Vandeir

Vandeir

Curtidas 0
POSTAR