Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Vídeos

Vídeos

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Banner

Delphi - Outros

Como mostrar o nome do executável (exe) no caption do formulário?

{ Esta função extrai apenas o nome do arquivo passado,
  sem path e extensão }

function Titulo(Nome: String): String;
var
  N, D: String;
begin
  N := ExtractFileName(Nome); { Retira o path }
  D := ChangeFileExt(N,''); { Retira a extensão }
  
  { Coloca a primeira letra em maiúscula e o resto
    em minúscula }
  Titulo := UpperCase(Copy(D,1,1)) + 
    LowerCase(Copy(D,2,Length(D)-1));
end;

{ No OnCreate do form, coloque: }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := Titulo(ParamStr(0));
end;

- Dica enviada por: Luiz Eduardo.

O conteúdo desta página pode ajudar alguém? Compartilhe!