66 lines
1.2 KiB
ObjectPascal
66 lines
1.2 KiB
ObjectPascal
unit X2UtService;
|
|
|
|
interface
|
|
uses
|
|
X2UtService.Intf;
|
|
|
|
|
|
type
|
|
TX2Service = class(TObject)
|
|
public
|
|
class function Run(AService: IX2Service): IX2ServiceContext;
|
|
end;
|
|
|
|
|
|
function IsUserInteractive: Boolean;
|
|
|
|
|
|
implementation
|
|
uses
|
|
System.SysUtils,
|
|
Winapi.Windows,
|
|
|
|
X2UtService.GUIContext,
|
|
X2UtService.ServiceContext;
|
|
|
|
|
|
|
|
function IsUserInteractive: Boolean;
|
|
var
|
|
windowStation: HWINSTA;
|
|
userObject: TUserObjectFlags;
|
|
lengthNeeded: Cardinal;
|
|
|
|
begin
|
|
Result := True;
|
|
|
|
windowStation := GetProcessWindowStation;
|
|
if windowStation <> 0 then
|
|
begin
|
|
lengthNeeded := 0;
|
|
FillChar(userObject, SizeOf(userObject), 0);
|
|
|
|
if GetUserObjectInformation(windowStation, UOI_FLAGS, @userObject, SizeOf(userObject), lengthNeeded) and
|
|
((userObject.dwFlags and WSF_VISIBLE) = 0) then
|
|
begin
|
|
Result := False;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
{ TX2Service }
|
|
class function TX2Service.Run(AService: IX2Service): IX2ServiceContext;
|
|
begin
|
|
if FindCmdLineSwitch('install', ['-', '/'], True) or
|
|
FindCmdLineSwitch('uninstall', ['-', '/'], True) or
|
|
(not IsUserInteractive) then
|
|
begin
|
|
Result := TX2ServiceContextService.Create(AService);
|
|
end else
|
|
Result := TX2ServiceContextGUI.Create(AService);
|
|
end;
|
|
|
|
end.
|