Código
1 - Adicione à cláusula uses da seção Interface do formulário desejado, a unit ShellAPI.
2 - Agora, na procedure que exibe o formulário sobre, escreva a seguinte linha:
ShellAbout(Handle, 'Aplicativo', 'Autor', Application.Icon.Handle);
onde
Handle -> é o manipulador do formulário que chama a rotina da API. Utilize 0
(zero) se desejar.
Aplicativo -> é o nome do seu aplicativo. Utilize, para facilitar,
a variável Application.Title.
Autor -> é o nome do autor do aplicativo.
Application.Icon.Handle -> é o manipulador do ícone pelo qual o seu aplicativo
é representado.
Para maiores detalhes, leia sobre a função "ShellAbout" no help on-line do Delphi.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009