[NumLock]

-создать файл в блокноте sample.manifest:

Код:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity
  	type="win32"
    name="DelphiApplication"
    version="1.0.0.0" 
  	processorArchitecture="*"/>
  <dependency>
    <dependentAssembly>
      <assemblyIdentity
        type="win32"
        name="Microsoft.Windows.Common-Controls"
        version="6.0.0.0"
        publicKeyToken="6595b64144ccf1df"
        language="*"
        processorArchitecture="*"/>
    </dependentAssembly>
  </dependency>
</assembly>

-создать файл WindowsXP.rc:

Код:

1 24 "sample.manifest"

-выполнить команду

Код:

"c:\Program Files\Borland\Delphi7\Bin\brcc32.exe" WindowsXP.rc

-получим файл WindowsXP.RES
-добавить в проект строчку:

Код:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
{$R WindowsXP.RES}