Estilo XP no Delphi, por Rafael Lemos

Olá amigos!

Como já pude perceber em vários fóruns e comunidades Delphi muita gente quer saber como deixar sua aplicação com "cara" de Windows XP, por ser um estilo visual mais agradável e moderno do que os velhos botões quadrados com os quais já estamos acostumados.

Algumas versões mais novas do Delphi já trazem essa opção, mas como muita gente ainda usa versões anteriores ao Delphi7 (eu me incluo nessa lista, pois uso o Delphi5) é necessário uma pequena "gambiarra" para fazer com que o seu executável, mesmo depois de compilado, fique com a aparência do Windows XP.

Infelizmente esse estilo só fará efeito no Windows XP, e não haverá mudanças caso o aplicativo seja executado em versões diferentes do Windows.

A fórmula é simples. Basta copiar o código abaixo e fazer as mudanças necessárias de acordo com sua aplicação:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
   version="1.0.0.0"
   processorArchitecture="X86" name="NOME_EMPRESA.NOME_PRODUTO.NOME_EXECUTAVEL_SEM_EXTENSÃO"
   type="win32"
/>
<description>Descrição do aplicativo</description>
<dependency>
   <dependentAssembly>
     <assemblyIdentity
       type="win32"
       name="Microsoft.Windows.Common-Controls"
       version="6.0.0.0"
       processorArchitecture="X86"
       publicKeyToken="6595b64144ccf1df"
       language="*"
     />
   </dependentAssembly>
</dependency>
</assembly>

NOME_EMPRESA = Susbstituir pelo nome da sua empresa (ou seu nome se for o caso)

NOME_PRODUTO = Substituir pelo nome da sua aplicação.

NOME_EXECUTÁVEL_SEM_EXTENSÃO = Substituir pelo nome do seu executável sem a extensão .exe

Descrição do aplicativo = Susbtituir pela breve descrição do seu aplicativo

Agora é só salvar o arquivo com o nome_do_executável.exe.manifest

Por exemplo, para o arquivo "projeto.exe" o nome do seu arquivo deverá ser "projeto.exe.manifest"

Coloque o seu arquivo .manifest recém criado na mesma pasta que o executável e pronto!

Clique aqui, e acesse o link referente ao artigo original em Inglês disponível na página da MSDN.

Alexandre <akdias@gmail.com>

ele dá erro não executa quando o arquivo manifest está no diretório

Marcos <marcos@mpsoftwares.com>

Dá pau isso. Nao funciona..erro de configuração

Rodrigo Guelf <rodrigoguelf@vvsystem.com.br>

bom mesmo, ja testei e fuciona realmete

Rafael Lemos <raleco@gmail.com>

Bom, respondendo aos amigos q tiveram problema eu peço que olhem atentamente se não há nenhuma configurção errada pois uso esse esquema em todos os meus programas sem problemas. : Não avaliado

Marcelo Santos <govalmg@yahoo.com.br>

Olá Rafael, eu desenvolvi um programa em Delphi que faz esta interessante alteração automaticamente não só em aplicativos como tambem em qualquer outro arquivo .exe, acesse esse link http://www.acropoledelphi.hpg.ig.com.br/WinXP.zip. Abraços. Valeu!!!

Samuel <samuel@itaol.com.br>

Vlw cara, eu testei e fico mais bonito os aplicativo que crio no delphi :).
Otimo topico. Parabens

junior <juniorgna@hotmail.com>

Alguem me ajuda? que eu preciso mesmo é q quando eu for cadastrar um novo cliente e caso o codigo ja exista eu preciso mostrar os dados na tela de cadastro

Jorge L Rocha <falecom@agroinformatica.com.br>

Achei excelente! Funciona! Encontrei problema somente no componente TDBLookupComboBox que se mantém do formato do windows98. Alguém sabe como fazer valer a alteração para qualquer componente? Agradeço antecipadamente.

Alexandre

Não funcionou !!!
"Falha na inicialização do aplicativo deviado a configuração ..."