Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
maiabrasil

Problema Chato da Barra de Títulos

Recommended Posts

Caros Colegas !

Preciso Urgente resolver um problema.

Comprei um código fonte na internet de um programa pra colocar na minha loja.

Bem ! Fiz as alterações no código e quando coloco o programa pra

rodar (F9) ele funciona normalmente, porém na barra de titulos

lá em baixo, fica com o nome do programa original. Já modifiquei

no Form Principal e nada. Também entrei em Projects - Options - Version Info

e esta tela do Version Info está desabilitada, não consigo alterar nada.

Então entrei e editei o arquivo (oac.dof), daí a tela continuou

desabilitada porém procedeu as alterações que eu fiz.

Bom quando executo o programa lá está o nome antigo novamente.

Por favor alguém me ajuda.

Retirei algumas partes do código do arquivo DPR

Olhem esse pedaço do código:

-------------------------------------------------------------------------------------

{

Define o ícone da aplicação

}

Application.Icon.Handle := LoadIcon(HInstance, 'ICONESISTEMA');

Application.HelpFile := Sistema.Pasta + 'Ajuda.Hlp';

Application.Title := Sistema.Titulo;

{

-------------------------------------------------------------------------------------

e esse aqui em baixo:

---------------------------------------------------------------------------------------

procedure TFormPrincipal.ShowHint(Sender: TObject);

begin

if Length(Application.Hint) > 0 then

StatusBarPrincipal.Panels[1].Text := Application.Hint

else

StatusBarPrincipal.Panels[1].Text := 'Empresa Usuária: '+Sistema.EmpresaUsr;

end;

procedure TFormPrincipal.FormShow(Sender: TObject);

Var

ArqIni: TIniFile;

begin

{

Inicializa variáveis públicas e ambiente de trabalho

}

Inicializa;

InicializaAmbiente;

DateSeparator := '/';

ShortDateFormat := Sistema.EstiloData;

Application.OnHint := ShowHint;

Caption := Sistema.Titulo;

ErronoSistema := False;

ArqIni := TInifile.Create(Sistema.Pasta + 'SYSEMP.DAT');

Sistema.EmpresaUsr := ArqIni.ReadString('EMPRESA 00', 'Nome', '');

Sistema.EnderecoUsr := ArqIni.ReadString('EMPRESA 00', 'Endereco', '');

Sistema.BairroUsr := ArqIni.ReadString('EMPRESA 00', 'Bairro', '');

Sistema.CidadeUsr := ArqIni.ReadString('EMPRESA 00', 'Cidade', '');

Sistema.UfUsr := ArqIni.ReadString('EMPRESA 00', 'UF', '');

Sistema.CEPUsr := ArqIni.ReadString('EMPRESA 00', 'CEP', '');

Sistema.CNPJUsr := ArqIni.ReadString('EMPRESA 00', 'CNPJ', '');

Sistema.IEUsr := ArqIni.ReadString('EMPRESA 00', 'Inscricao', '');

Sistema.FonesUsr := ArqIni.ReadString('EMPRESA 00', 'Fones', '');

Sistema.LogoUsr := ArqIni.ReadString('EMPRESA 00', 'Logo', '');

ArqIni.Free;

StatusBarPrincipal.Panels[1].Text := 'Empresa Usuária: '+Sistema.EmpresaUsr;

{

--------------------------------------------------------------------------------------------

Por favor se alguem souber, me ajuda !!!

Ângelo

post-53032-13884905163893_thumb.jpg

Compartilhar este post


Link para o post
Compartilhar em outros sites

Jaketa, já troquei esse parâmetro sim, porém nada alterou-se.

Eu acho que é algo relacionado a algum arquivo tipo INI.

Mas não sei ao certo.

Se você ou algum outro colega puder me ajudar !

Agradeço ! Té mais !

Ângelo

Compartilhar este post


Link para o post
Compartilhar em outros sites

ainda não mexi em sistema.titulo

Como devo fazer ? Quando pressiono Ctrl e clico em cima da palavra

titulo não sou redirecionado a lugar algum.

Dêem uma olhada na imagem que postei aí em cima.

Vêem o circulo em vermelho ? É isso que quero renomear.

Me ajudem.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Poxa ! Já tentei de tudo, num dá certo.

Será que alguém poderia acessar minha máquina via VNC e dar uma olhadinha no código fonte do programa ? Quando tiver um tempinho é claro !

Preciso muito dessa ajuda ! Por favor !

Se alguém puder me ajudar eu agradeço !

Um Abraço.

Compartilhar este post


Link para o post
Compartilhar em outros sites

eu entendi, veio

você tem q achar onde q ta esse "Pro Adm Automação 2005"

eu acho q é nesse sistema.titulo

tenta

acha essa linha Application.Title := Sistema.Titulo;

coloca algo Application.Title := "Teste";

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ah beleza achei !

estava todas as informações num arquivo *.pas

modifiquei e pimba !!!!!!!!!

Valeu galera ! Graças as dicas de vocês consegui ir fuçando até achar.

Valeu mesmo !

Té +

Compartilhar este post


Link para o post
Compartilhar em outros sites

CASO RESOLVIDO!

Caso o autor do tópico necessite, o mesmo será reaberto, para isso o mesmo deverá procurar um Moderador da área e solicitar o desbloqueio!

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×