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; [Somente usuários registrados podem vem os links. ] Créditos: LaBaK
Ah´´
Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)
Regras do Fórum