GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-09-07 21:45:03 +00:00
Code Issues Projects Releases Wiki Activity

LocalIfGLobalFails property for X2UtSingleInstance

Browse Source 
VistaMan units; like XPMan but with various requested privilege levels
This commit is contained in:
Mark van Renswoude 2010-01-31 00:11:02 +00:00
parent fcd8d4a46d
commit b08e7df883
15 changed files with 147 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Packages/D2007/X2Utils.dproj
View File

@ -5,7 +5,7 @@
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\bin\D2007\X2Utils2007.bpl</DCC_DependencyCheckOutputName>
<DCC_DependencyCheckOutputName>..\..\..\bpl\D2006\X2Utils2007.bpl</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
@ -33,6 +33,16 @@
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">X2Utils</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">True</Package_Options><Package_Options Name="LibSuffix">2007</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1043</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">X2Utils.dpk</Source></Source><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject>
@ -42,12 +52,12 @@
<DelphiCompile Include="X2Utils.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vclx.dcp" />
<DCCReference Include="$(SystemRoot)\system32\VirtualTreesD207.dcp" />
<DCCReference Include="$(SystemRoot)\system32\VirtualTreesD27.dcp" />
<DCCReference Include="$(SystemRoot)\system32\VirtualTreesD7.dcp" />
<DCCReference Include="..\..\..\..\rtl.dcp" />
<DCCReference Include="..\..\..\..\vcl.dcp" />
<DCCReference Include="..\..\..\..\vclx.dcp" />
<DCCReference Include="..\..\X2UtApp.pas" />
<DCCReference Include="..\..\X2UtBits.pas" />
<DCCReference Include="..\..\X2UtGraphics.pas" />

BIN
Resources/VistaManAsInvoker.RES Normal file
View File

Binary file not shown.

24
Resources/VistaManAsInvoker.manifest Normal file
View File

@ -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="x86" />
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges>
<requestedExecutionLevel
level="asInvoker"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

1
Resources/VistaManAsInvoker.rc Normal file
View File

@ -0,0 +1 @@
1 24 "VistaManAsInvoker.manifest"

BIN
Resources/VistaManHighestAvailable.RES Normal file
View File

Binary file not shown.

24
Resources/VistaManHighestAvailable.manifest Normal file
View File

@ -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="x86" />
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges>
<requestedExecutionLevel
level="highestAvailable"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

1
Resources/VistaManHighestAvailable.rc Normal file
View File

@ -0,0 +1 @@
1 24 "VistaManHighestAvailable.manifest"

BIN
Resources/VistaManRequireAdministrator.RES Normal file
View File

Binary file not shown.

24
Resources/VistaManRequireAdministrator.manifest Normal file
View File

@ -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="x86" />
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges>
<requestedExecutionLevel
level="requireAdministrator"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

1
Resources/VistaManRequireAdministrator.rc Normal file
View File

@ -0,0 +1 @@
1 24 "VistaManRequireAdministrator.manifest"

11
VistaManAsInvoker.pas Normal file
View File

@ -0,0 +1,11 @@
unit VistaManAsInvoker;
{$WEAKPACKAGEUNIT ON}
interface
{$R 'Resources\VistaManAsInvoker.RES'}
implementation
end.

11
VistaManHighestAvailable.pas Normal file
View File

@ -0,0 +1,11 @@
unit VistaManHighestAvailable;
{$WEAKPACKAGEUNIT ON}
interface
{$R 'Resources\VistaManHighestAvailable.RES'}
implementation
end.

11
VistaManRequireAdministrator.pas Normal file
View File

@ -0,0 +1,11 @@
unit VistaManRequireAdministrator;
{$WEAKPACKAGEUNIT ON}
interface
{$R 'Resources\VistaManRequireAdministrator.RES'}
implementation
end.

2
X2UtApp.pas
View File

@ -452,7 +452,7 @@ end;
function TX2App.FormatVersion(const ABuild: Boolean = True;
const AProductName: Boolean = False): String;
begin
Result := FVersion.FormatVersion(ABuild, AProductName);
Result := Version.FormatVersion(ABuild, AProductName);
end;

31
X2UtSingleInstance.pas
View File

@ -72,11 +72,13 @@ type
FFileMapData: PX2InstanceMapData;
FFileMapping: THandle;
FObservers: TInterfaceList;
FLocalIfGlobalFails: Boolean;
protected
function GetCount(): Integer; virtual;
procedure SetActive(const Value: Boolean); virtual;
procedure SetApplicationID(const Value: String); virtual;
procedure SetGlobal(const Value: Boolean); virtual;
procedure SetActive(const Value: Boolean); virtual;
procedure SetLocalIfGlobalFails(const Value: Boolean); virtual;
procedure WindowProc(var Message: TMessage); virtual;
@ -104,11 +106,12 @@ type
//:$ Unregisters a previously registered instance.
procedure Detach(const ANotifier: IX2InstanceObserver);
property Active: Boolean read FActive write SetActive;
property ApplicationID: String read FApplicationID write SetApplicationID;
property FirstInstance: Boolean read FFirstInstance;
property Global: Boolean read FGlobal write SetGlobal;
property Count: Integer read GetCount;
property Active: Boolean read FActive write SetActive;
property ApplicationID: String read FApplicationID write SetApplicationID;
property FirstInstance: Boolean read FFirstInstance;
property Global: Boolean read FGlobal write SetGlobal;
property LocalIfGlobalFails: Boolean read FLocalIfGlobalFails write SetLocalIfGlobalFails;
property Count: Integer read GetCount;
end;
{
@ -217,6 +220,7 @@ begin
inherited;
FObservers := TInterfaceList.Create;
FLocalIfGlobalFails := True;
end;
destructor TX2Instance.Destroy();
@ -299,7 +303,15 @@ begin
PChar(ScopePrefix[Global] +
'SingleInstance.' + ApplicationID));
if FFileMapping = 0 then
RaiseLastOSError();
begin
if Global and LocalIfGlobalFails then
begin
FGlobal := False;
Open();
Exit;
end else
RaiseLastOSError();
end;
FActive := True;
try
@ -442,6 +454,11 @@ begin
end;
procedure TX2Instance.SetLocalIfGlobalFails(const Value: Boolean);
begin
FLocalIfGlobalFails := Value;
end;
// Copied from System unit because Borland didn't make it public
function GetParamStr(P: PChar; var Param: String): PChar;