Ler Launcher por .INI - Source

Boa tarde,

Como muito pedindo o código .INI pro Launcher ler, então resolvi postar os código aqui para aquele que está começando a Dev launcher com .INI

declare na seção uses:

uses IniFiles;


Agora vamos declara as variáveis global em modo string:

Var
Conf : TIniFile;
Main,IP,Port,Browser,Site,Update,Title : string;

No FormCreate do seu Launcher coloca isso:

begin

if not FileExists(GetCurrentDIR+'\LaBaK.ini') then
begin
// Aqui mostra a mensagem caso o LaBaK.ini exista o .ini junto com Launcher
MessageBox(0, 'O arquivos LaBaK.ini está faltando, o launcher não pode ser executado!', 'Informação', MB_ICONERROR + MB_OK);
Form.Close;
end;

Conf := Tinifile.Create(GetCurrentDir+'\LaBaK.ini'); // Aqui ele vai ler as conf do .INI
Main := Conf.ReadString('Configuracoes','Main',''); // Nome do seu Main
IP := Conf.ReadString('Configuracoes','IP',''); // IP do seu servidor
Port := Conf.ReadString('Configuracoes','Port',''); // Porta do seu servidor
Browser := Conf.ReadString('Configuracoes','Browser',''); // Link Browser
Site := Conf.ReadString('Configuracoes','Site',''); // Link do Site
EdtUpdate.Text := Conf.ReadString('Configuracoes','Update',''); // Link do Url da Update
Title := Conf.ReadString('Configuracoes','Title Launcher',''); // Fica o nome do Launcher
Form1.Caption := Title; // Aqui vai pucha a String Title do seu Launcher
Application.Title := Title; // Aqui vai pucha a String Title do seu Launcher
Browser1.Navigate(Browser); // Aqui vai pucha a String Browser

Conf.Free; // Aqui libera o Conf
end;

Em um Button coloca esse código para executar seu Main:

if not FileExists(GetCurrentDir()+Main) then
begin
MessageBox(Application.Handle, PChar(Main+' não foi encontrado!'), 'Aviso', MB_ICONWARNING);
Close;
end
else
begin
WinExec(pchar(ExtractFilePath(Application.ExeName) +Main+' connect /u'+IP+' /p'+Port),sw_normal);
Close; // Quando abrir o Main automaticamente o Launcher fecha.
end;
end;

[Only registered and activated users can see links. Click Here To Register...]


Créditos:
LaBaK