Código
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