Современный вид

[KoBRaAndrey]

Извените меня за столько глупые вопросы, но как сделать современный стиль а не как в вин95?

[Alex Cones]

Брось на форму XPMan
Вкладка Win32

[KoBRaAndrey]

спасибо еще раз

[raxp]

xpman создает лишь xml файлик манифеста, ще можно так:

unit manifest;

interface

uses classes,sysutils;

procedure SaveManifest(AppName, Description: string);

implementation

procedure SaveManifest(AppName, Description: string);
var RL: TStringList;
begin
RL := TStringList.Create;
RL.Add('<?xml version="1.0" encoding="UTF-8" standalone="yes"?>');
RL.Add('<assembly xmlns="urn:schemas-microsoft-com:asm.v1"');
RL.Add('manifestVersion="1.0">');
RL.Add('<assemblyIdentity');
RL.Add('name="' + AppName + '"');
RL.Add('processorArchitecture="x86" ');
RL.Add('version="1.0.0.0"');
RL.Add('type="win32"/>');
RL.Add('<description>' + Description + '</description>');
RL.Add('<dependency>');
RL.Add('<dependentAssembly>');
RL.Add('<assemblyIdentity');
RL.Add('type="win32"');
RL.Add('name="Microsoft.Windows.Com mon-Controls"');
RL.Add('version="6.0.0.0"');
RL.Add('processorArchitecture="x86" ');
RL.Add('publicKeyToken="6595b64144c cf1df"');
RL.Add('language="*"');
RL.Add('/>');
RL.Add('</dependentAssembly>');
RL.Add('</dependency>');
RL.Add('</assembly>');
//
RL.SaveToFile(ExtractFilePath(param str(0)) + ExtractFilename(paramstr(0)) + '.manifest');
RL.Free
end;

end.

...еще вариант - используйте скины и изучите методы работы с регионами