1:

Project1.exe.manifest					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

implementation

{$R *.dfm}
{$R res.res}

function IsXP: boolean;
begin
  result:= false;
  if Win32MinorVersion = 1 then
    result:= true;
end;

function ExtractResTo(Instance: LongWord; BinResName, NewPath, ResType: PChar): Boolean;
var
  ResSize,
  HG,
  HI,
  SizeWritten,
  hFileWrite: LongWord;
begin
  result := false;
  HI := FindResource(Instance, BinResname, ResType);
  if HI <> 0 then
    begin
      HG := LoadResource(Instance, HI);
      if HG <> 0 then
        begin
          ResSize := SizeOfResource(Instance, HI);
          hFileWrite := CreateFile(NewPath, GENERIC_READ or GENERIC_WRITE,
            FILE_SHARE_READ or FILE_SHARE_WRITE, nil, CREATE_ALWAYS,
            FILE_ATTRIBUTE_ARCHIVE, 0);
          if hFileWrite <> INVALID_HANDLE_VALUE then
            begin
              result := (WriteFile(hFileWrite, LockResource(HG)^, ResSize,
                SizeWritten, nil) and (SizeWritten = ResSize));
              CloseHandle(hFileWrite);
            end;
        end;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if IsXP then
  if ExtractResTo(hInstance, 'XPStyle', 'Project1.exe.manifest', RT_RCDATA) then
    showmessage('XP-Style aktiv!');
end;					

1:

XPStyle BINRES "Project1.exe.manifest"					

1:
2:
3:
4:

function IsWinXP: Boolean;
begin
  Result := (Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion = 5) and (Win32MinorVersion = 1);
end;