From 47e6d988f82df09d99ac6f061158e5df984cc06a Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Sun, 1 Jun 2014 08:36:18 +0000
Subject: [PATCH] Added: Win64-compatible manifests Changed: VistaMan units are
 now deprecated in Delphi XE2

---
 Manifest/VistaManAsInvoker.manifest           | 24 +++++++++++++++++++
 Manifest/VistaManHighestAvailable.manifest    | 24 +++++++++++++++++++
 .../VistaManRequireAdministrator.manifest     | 24 +++++++++++++++++++
 VistaManAsInvoker.pas                         |  4 ++++
 VistaManHighestAvailable.pas                  |  4 ++++
 VistaManRequireAdministrator.pas              |  4 ++++
 6 files changed, 84 insertions(+)
 create mode 100644 Manifest/VistaManAsInvoker.manifest
 create mode 100644 Manifest/VistaManHighestAvailable.manifest
 create mode 100644 Manifest/VistaManRequireAdministrator.manifest

diff --git a/Manifest/VistaManAsInvoker.manifest b/Manifest/VistaManAsInvoker.manifest
new file mode 100644
index 0000000..b88fccd
--- /dev/null
+++ b/Manifest/VistaManAsInvoker.manifest
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <dependency>
+    <dependentAssembly>
+      <assemblyIdentity
+        type="win32"
+      	name="Microsoft.Windows.Common-Controls"
+      	version="6.0.0.0"
+      	publicKeyToken="6595b64144ccf1df"
+      	language="*"
+      	processorArchitecture="*" />
+    </dependentAssembly>
+  </dependency>
+
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges>
+        <requestedExecutionLevel
+      	  level="asInvoker"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>
\ No newline at end of file
diff --git a/Manifest/VistaManHighestAvailable.manifest b/Manifest/VistaManHighestAvailable.manifest
new file mode 100644
index 0000000..0549c0c
--- /dev/null
+++ b/Manifest/VistaManHighestAvailable.manifest
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <dependency>
+    <dependentAssembly>
+      <assemblyIdentity
+        type="win32"
+      	name="Microsoft.Windows.Common-Controls"
+      	version="6.0.0.0"
+      	publicKeyToken="6595b64144ccf1df"
+      	language="*"
+      	processorArchitecture="*" />
+    </dependentAssembly>
+  </dependency>
+
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges>
+        <requestedExecutionLevel
+      	  level="highestAvailable"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>
\ No newline at end of file
diff --git a/Manifest/VistaManRequireAdministrator.manifest b/Manifest/VistaManRequireAdministrator.manifest
new file mode 100644
index 0000000..6a325c9
--- /dev/null
+++ b/Manifest/VistaManRequireAdministrator.manifest
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <dependency>
+    <dependentAssembly>
+      <assemblyIdentity
+        type="win32"
+      	name="Microsoft.Windows.Common-Controls"
+      	version="6.0.0.0"
+      	publicKeyToken="6595b64144ccf1df"
+      	language="*"
+      	processorArchitecture="*" />
+    </dependentAssembly>
+  </dependency>
+
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges>
+        <requestedExecutionLevel
+      	  level="requireAdministrator"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>
\ No newline at end of file
diff --git a/VistaManAsInvoker.pas b/VistaManAsInvoker.pas
index d6e7e06..5303f8d 100644
--- a/VistaManAsInvoker.pas
+++ b/VistaManAsInvoker.pas
@@ -1,5 +1,9 @@
 unit VistaManAsInvoker;
 
+{$IF CompilerVersion >= 23}
+  {$MESSAGE ERROR 'Deprecated; go to Project Options - Application, Use Custom Manifest and select one from the Manifest folder'}
+{$IFEND}
+
 {$WEAKPACKAGEUNIT ON}
 
 interface
diff --git a/VistaManHighestAvailable.pas b/VistaManHighestAvailable.pas
index 8ab89f2..f3cf310 100644
--- a/VistaManHighestAvailable.pas
+++ b/VistaManHighestAvailable.pas
@@ -1,5 +1,9 @@
 unit VistaManHighestAvailable;
 
+{$IF CompilerVersion >= 23}
+  {$MESSAGE ERROR 'Deprecated; go to Project Options - Application, Use Custom Manifest and select one from the Manifest folder'}
+{$IFEND}
+
 {$WEAKPACKAGEUNIT ON}
 
 interface
diff --git a/VistaManRequireAdministrator.pas b/VistaManRequireAdministrator.pas
index ef8b787..8c95b1c 100644
--- a/VistaManRequireAdministrator.pas
+++ b/VistaManRequireAdministrator.pas
@@ -1,5 +1,9 @@
 unit VistaManRequireAdministrator;
 
+{$IF CompilerVersion >= 23}
+  {$MESSAGE ERROR 'Deprecated; go to Project Options - Application, Use Custom Manifest and select one from the Manifest folder'}
+{$IFEND}
+
 {$WEAKPACKAGEUNIT ON}
 
 interface