ManifestXP в Delpfi7

[shevel97]

У меня следующая проблема: я хочу вставить компонент ManifestXP, но вкладка Win32, где он обычно находиться у меня почему то нет. Причем в свойствах(Properities) этой панели она есть! После множества неудачных попыток я случайно ещё и спрятал(Hide) ManifestXP, и теперь его нет даже в свойствах( Если кто-нибудь знает всё это исправить, напишите плз.

[shevel97]

Забыл главное то написать: программа Delphi7

[raxp]

зачем компонент? файл манифеста лишь текстовый файл, его можно и создать самому:

//------------------------------------------
// Manifest
// Модуль стиля XP
// Author: Бадло Сергей Григорьевич
// H-page: http://forum.procoder.info
// Cистемные требования: XP
//------------------------------------------

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.Common-Controls"');
 RL.Add('version="6.0.0.0"');
 RL.Add('processorArchitecture="x86"');
 RL.Add('publicKeyToken="6595b64144ccf1df"');
 RL.Add('language="*"');
 RL.Add('/>');
 RL.Add('</dependentAssembly>');
 RL.Add('</dependency>');
 RL.Add('</assembly>');
 //
 RL.SaveToFile(ExtractFilePath(paramstr(0)) + ExtractFilename(paramstr(0)) + '.manifest');
 RL.Free
end;

end.

в файле проекта *.dpr добавьте вызов:

program RAMedia;

uses
  Forms,
  Windows,
  manifest in 'manifest.pas',
  ampu in 'ampu.pas' {vid};

{$R *.RES}

begin
  //стиль-
  SaveManifest('ramedia', 'RAMEDIA');

  //Run program
  Application.Initialize;
  Application.Title := '';
  Application.CreateForm(Tvid, vid);
 
  Application.CreateForm(Tosf, osf);
  Application.Run;
end.

cмысл ясен?

[Пепел Феникса]

а скорее всего достаточно просто uses xpman(ибо компонент кидается ради uses)

[shevel97]

Спасибо большое, выручили!)