mirror of
https://github.com/ethereum/go-ethereum.git
synced 2026-07-26 06:36:43 +00:00
Launching PurePow
This commit is contained in:
Davi-Koder
parent
ea9e62ca3d
commit
9b24b8c229
8 changed files with 3961 additions and 0 deletions
1244
build/Source/FirewallControl.pas
Normal file
1244
build/Source/FirewallControl.pas
Normal file
File diff suppressed because it is too large
Load diff
126
build/Source/NSIS.pas
Normal file
126
build/Source/NSIS.pas
Normal file
|
|
@ -0,0 +1,126 @@
|
||||||
|
{
|
||||||
|
Original Code from
|
||||||
|
(C) 2001 - Peter Windridge
|
||||||
|
|
||||||
|
Code in seperate unit and some changes
|
||||||
|
2003 by Bernhard Mayer
|
||||||
|
|
||||||
|
Fixed and formatted by Brett Dever
|
||||||
|
http://editor.nfscheats.com/
|
||||||
|
|
||||||
|
simply include this unit in your plugin project and export
|
||||||
|
functions as needed
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
unit nsis;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
windows;
|
||||||
|
|
||||||
|
type
|
||||||
|
VarConstants = (
|
||||||
|
INST_0, // $0
|
||||||
|
INST_1, // $1
|
||||||
|
INST_2, // $2
|
||||||
|
INST_3, // $3
|
||||||
|
INST_4, // $4
|
||||||
|
INST_5, // $5
|
||||||
|
INST_6, // $6
|
||||||
|
INST_7, // $7
|
||||||
|
INST_8, // $8
|
||||||
|
INST_9, // $9
|
||||||
|
INST_R0, // $R0
|
||||||
|
INST_R1, // $R1
|
||||||
|
INST_R2, // $R2
|
||||||
|
INST_R3, // $R3
|
||||||
|
INST_R4, // $R4
|
||||||
|
INST_R5, // $R5
|
||||||
|
INST_R6, // $R6
|
||||||
|
INST_R7, // $R7
|
||||||
|
INST_R8, // $R8
|
||||||
|
INST_R9, // $R9
|
||||||
|
INST_CMDLINE, // $CMDLINE
|
||||||
|
INST_INSTDIR, // $INSTDIR
|
||||||
|
INST_OUTDIR, // $OUTDIR
|
||||||
|
INST_EXEDIR, // $EXEDIR
|
||||||
|
INST_LANG, // $LANGUAGE
|
||||||
|
__INST_LAST
|
||||||
|
);
|
||||||
|
TVariableList = INST_0..__INST_LAST;
|
||||||
|
pstack_t = ^stack_t;
|
||||||
|
stack_t = record
|
||||||
|
next: pstack_t;
|
||||||
|
text: PChar;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
g_stringsize: integer;
|
||||||
|
g_stacktop: ^pstack_t;
|
||||||
|
g_variables: PChar;
|
||||||
|
g_hwndParent: HWND;
|
||||||
|
|
||||||
|
procedure Init(const hwndParent: HWND; const string_size: integer; const variables: PChar; const stacktop: pointer);
|
||||||
|
function PopString(): string;
|
||||||
|
procedure PushString(const str: string='');
|
||||||
|
function GetUserVariable(const varnum: TVariableList): string;
|
||||||
|
procedure SetUserVariable(const varnum: TVariableList; const value: string);
|
||||||
|
procedure NSISDialog(const text, caption: string; const buttons: integer);
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
procedure Init(const hwndParent: HWND; const string_size: integer; const variables: PChar; const stacktop: pointer);
|
||||||
|
begin
|
||||||
|
g_stringsize := string_size;
|
||||||
|
g_hwndParent := hwndParent;
|
||||||
|
g_stacktop := stacktop;
|
||||||
|
g_variables := variables;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function PopString(): string;
|
||||||
|
var
|
||||||
|
th: pstack_t;
|
||||||
|
begin
|
||||||
|
if integer(g_stacktop^) <> 0 then begin
|
||||||
|
th := g_stacktop^;
|
||||||
|
Result := PChar(@th.text);
|
||||||
|
g_stacktop^ := th.next;
|
||||||
|
GlobalFree(HGLOBAL(th));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure PushString(const str: string='');
|
||||||
|
var
|
||||||
|
th: pstack_t;
|
||||||
|
begin
|
||||||
|
if integer(g_stacktop) <> 0 then begin
|
||||||
|
th := pstack_t(GlobalAlloc(GPTR, SizeOf(stack_t) + g_stringsize));
|
||||||
|
lstrcpyn(@th.text, PChar(str), g_stringsize);
|
||||||
|
th.next := g_stacktop^;
|
||||||
|
g_stacktop^ := th;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetUserVariable(const varnum: TVariableList): string;
|
||||||
|
begin
|
||||||
|
if (integer(varnum) >= 0) and (integer(varnum) < integer(__INST_LAST)) then
|
||||||
|
Result := g_variables + integer(varnum) * g_stringsize
|
||||||
|
else
|
||||||
|
Result := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure SetUserVariable(const varnum: TVariableList; const value: string);
|
||||||
|
begin
|
||||||
|
if (value <> '') and (integer(varnum) >= 0) and (integer(varnum) < integer(__INST_LAST)) then
|
||||||
|
lstrcpy(g_variables + integer(varnum) * g_stringsize, PChar(value))
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure NSISDialog(const text, caption: string; const buttons: integer);
|
||||||
|
begin
|
||||||
|
MessageBox(g_hwndParent, PChar(text), PChar(caption), buttons);
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
end.
|
||||||
BIN
build/Source/NetFwTypeLib_TLB.dcr
Normal file
BIN
build/Source/NetFwTypeLib_TLB.dcr
Normal file
Binary file not shown.
850
build/Source/NetFwTypeLib_TLB.pas
Normal file
850
build/Source/NetFwTypeLib_TLB.pas
Normal file
|
|
@ -0,0 +1,850 @@
|
||||||
|
unit NetFwTypeLib_TLB;
|
||||||
|
|
||||||
|
// ************************************************************************ //
|
||||||
|
// WARNUNG
|
||||||
|
// -------
|
||||||
|
// Die in dieser Datei deklarierten Typen wurden aus Daten einer Typbibliothek
|
||||||
|
// generiert. Wenn diese Typbibliothek explizit oder indirekt (über eine
|
||||||
|
// andere Typbibliothek) reimportiert wird oder wenn die Anweisung
|
||||||
|
// 'Aktualisieren' im Typbibliotheks-Editor während des Bearbeitens der
|
||||||
|
// Typbibliothek aktiviert ist, wird der Inhalt dieser Datei neu generiert und
|
||||||
|
// alle manuell vorgenommenen Änderungen gehen verloren.
|
||||||
|
// ************************************************************************ //
|
||||||
|
|
||||||
|
// PASTLWTR : $Revision: 1.130.1.0.1.0.1.6 $
|
||||||
|
// Datei generiert am 20.05.2007 16:34:09 aus der unten beschriebenen Typbibliothek.
|
||||||
|
|
||||||
|
// ************************************************************************ //
|
||||||
|
// Type Lib: FirewallAPI.dll (1)
|
||||||
|
// LIBID: {58FBCF7C-E7A9-467C-80B3-FC65E8FCCA08}
|
||||||
|
// LCID: 0
|
||||||
|
// Helpfile:
|
||||||
|
// DepndLst:
|
||||||
|
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
|
||||||
|
// (2) v4.0 StdVCL, (C:\WINDOWS\system32\stdvcl40.dll)
|
||||||
|
// Fehler
|
||||||
|
// Hinweis: Element 'Type' von 'INetFwService' geändert in 'Type_'
|
||||||
|
// Hinweis: Parameter 'Type' im INetFwService.Type geändert in 'Type_'
|
||||||
|
// Hinweis: Element 'Type' von 'INetFwProfile' geändert in 'Type_'
|
||||||
|
// Hinweis: Parameter 'Type' im INetFwProfile.Type geändert in 'Type_'
|
||||||
|
// Hinweis: Parameter 'Type' im INetFwMgr.IsIcmpTypeAllowed geändert in 'Type_'
|
||||||
|
// Hinweis: Element 'Type' von 'INetFwService' geändert in 'Type_'
|
||||||
|
// Hinweis: Element 'Type' von 'INetFwProfile' geändert in 'Type_'
|
||||||
|
// ************************************************************************ //
|
||||||
|
// *************************************************************************//
|
||||||
|
// HINWEIS:
|
||||||
|
// Von $IFDEF_LIVE_SERVER_AT_DESIGN_TIME überwachte Einträge, werden von
|
||||||
|
// Eigenschaften verwendet, die Objekte zurückgeben, die explizit mit einen Funktionsaufruf
|
||||||
|
// vor dem Zugriff über die Eigenschaft erzeugt werden müssen. Diese Einträge wurden deaktiviert,
|
||||||
|
// um deren unbeabsichtigte Benutzung im Objektinspektor zu verhindern. Sie können sie
|
||||||
|
// aktivieren, indem Sie LIVE_SERVER_AT_DESIGN_TIME definieren oder sie selektiv
|
||||||
|
// aus den $IFDEF-Blöcken entfernen. Solche Einträge müssen jedoch programmseitig
|
||||||
|
// mit einer Methode der geeigneten CoClass vor der Verwendung
|
||||||
|
// erzeugt werden.
|
||||||
|
{$TYPEDADDRESS OFF} // Unit muß ohne Typüberprüfung für Zeiger compiliert werden.
|
||||||
|
{$WARN SYMBOL_PLATFORM OFF}
|
||||||
|
{$WRITEABLECONST ON}
|
||||||
|
{$VARPROPSETTER ON}
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
|
||||||
|
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// In dieser Typbibliothek deklarierte GUIDS . Es werden folgende
|
||||||
|
// Präfixe verwendet:
|
||||||
|
// Typbibliotheken : LIBID_xxxx
|
||||||
|
// CoClasses : CLASS_xxxx
|
||||||
|
// DISPInterfaces : DIID_xxxx
|
||||||
|
// Nicht-DISP-Schnittstellen: IID_xxxx
|
||||||
|
// *********************************************************************//
|
||||||
|
const
|
||||||
|
// Haupt- und Nebenversionen der Typbibliothek
|
||||||
|
NetFwTypeLibMajorVersion = 1;
|
||||||
|
NetFwTypeLibMinorVersion = 0;
|
||||||
|
|
||||||
|
LIBID_NetFwTypeLib: TGUID = '{58FBCF7C-E7A9-467C-80B3-FC65E8FCCA08}';
|
||||||
|
|
||||||
|
IID_INetFwRemoteAdminSettings: TGUID = '{D4BECDDF-6F73-4A83-B832-9C66874CD20E}';
|
||||||
|
IID_INetFwIcmpSettings: TGUID = '{A6207B2E-7CDD-426A-951E-5E1CBC5AFEAD}';
|
||||||
|
IID_INetFwOpenPort: TGUID = '{E0483BA0-47FF-4D9C-A6D6-7741D0B195F7}';
|
||||||
|
IID_INetFwOpenPorts: TGUID = '{C0E9D7FA-E07E-430A-B19A-090CE82D92E2}';
|
||||||
|
IID_INetFwService: TGUID = '{79FD57C8-908E-4A36-9888-D5B3F0A444CF}';
|
||||||
|
IID_INetFwServices: TGUID = '{79649BB4-903E-421B-94C9-79848E79F6EE}';
|
||||||
|
IID_INetFwAuthorizedApplication: TGUID = '{B5E64FFA-C2C5-444E-A301-FB5E00018050}';
|
||||||
|
IID_INetFwAuthorizedApplications: TGUID = '{644EFD52-CCF9-486C-97A2-39F352570B30}';
|
||||||
|
IID_INetFwServiceRestriction: TGUID = '{8267BBE3-F890-491C-B7B6-2DB1EF0E5D2B}';
|
||||||
|
IID_INetFwRules: TGUID = '{9C4C6277-5027-441E-AFAE-CA1F542DA009}';
|
||||||
|
IID_INetFwRule: TGUID = '{AF230D27-BABA-4E42-ACED-F524F22CFCE2}';
|
||||||
|
IID_INetFwProfile: TGUID = '{174A0DDA-E9F9-449D-993B-21AB667CA456}';
|
||||||
|
IID_INetFwPolicy: TGUID = '{D46D2478-9AC9-4008-9DC7-5563CE5536CC}';
|
||||||
|
IID_INetFwPolicy2: TGUID = '{98325047-C671-4174-8D81-DEFCD3F03186}';
|
||||||
|
IID_INetFwMgr: TGUID = '{F7898AF5-CAC4-4632-A2EC-DA06E5111AF2}';
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Deklaration von in der Typbibliothek definierten Enumerationen
|
||||||
|
// *********************************************************************//
|
||||||
|
// Konstanten für enum NET_FW_IP_VERSION_
|
||||||
|
type
|
||||||
|
NET_FW_IP_VERSION_ = TOleEnum;
|
||||||
|
const
|
||||||
|
NET_FW_IP_VERSION_V4 = $00000000;
|
||||||
|
NET_FW_IP_VERSION_V6 = $00000001;
|
||||||
|
NET_FW_IP_VERSION_ANY = $00000002;
|
||||||
|
NET_FW_IP_VERSION_MAX = $00000003;
|
||||||
|
|
||||||
|
// Konstanten für enum NET_FW_SCOPE_
|
||||||
|
type
|
||||||
|
NET_FW_SCOPE_ = TOleEnum;
|
||||||
|
const
|
||||||
|
NET_FW_SCOPE_ALL = $00000000;
|
||||||
|
NET_FW_SCOPE_LOCAL_SUBNET = $00000001;
|
||||||
|
NET_FW_SCOPE_CUSTOM = $00000002;
|
||||||
|
NET_FW_SCOPE_MAX = $00000003;
|
||||||
|
|
||||||
|
// Konstanten für enum NET_FW_IP_PROTOCOL_
|
||||||
|
type
|
||||||
|
NET_FW_IP_PROTOCOL_ = TOleEnum;
|
||||||
|
const
|
||||||
|
NET_FW_IP_PROTOCOL_TCP = $00000006;
|
||||||
|
NET_FW_IP_PROTOCOL_UDP = $00000011;
|
||||||
|
NET_FW_IP_PROTOCOL_ANY = $00000100;
|
||||||
|
|
||||||
|
// Konstanten für enum NET_FW_SERVICE_TYPE_
|
||||||
|
type
|
||||||
|
NET_FW_SERVICE_TYPE_ = TOleEnum;
|
||||||
|
const
|
||||||
|
NET_FW_SERVICE_FILE_AND_PRINT = $00000000;
|
||||||
|
NET_FW_SERVICE_UPNP = $00000001;
|
||||||
|
NET_FW_SERVICE_REMOTE_DESKTOP = $00000002;
|
||||||
|
NET_FW_SERVICE_NONE = $00000003;
|
||||||
|
NET_FW_SERVICE_TYPE_MAX = $00000004;
|
||||||
|
|
||||||
|
// Konstanten für enum NET_FW_RULE_DIRECTION_
|
||||||
|
type
|
||||||
|
NET_FW_RULE_DIRECTION_ = TOleEnum;
|
||||||
|
const
|
||||||
|
NET_FW_RULE_DIR_IN = $00000001;
|
||||||
|
NET_FW_RULE_DIR_OUT = $00000002;
|
||||||
|
NET_FW_RULE_DIR_MAX = $00000003;
|
||||||
|
|
||||||
|
// Konstanten für enum NET_FW_ACTION_
|
||||||
|
type
|
||||||
|
NET_FW_ACTION_ = TOleEnum;
|
||||||
|
const
|
||||||
|
NET_FW_ACTION_BLOCK = $00000000;
|
||||||
|
NET_FW_ACTION_ALLOW = $00000001;
|
||||||
|
NET_FW_ACTION_MAX = $00000002;
|
||||||
|
|
||||||
|
// Konstanten für enum NET_FW_PROFILE_TYPE_
|
||||||
|
type
|
||||||
|
NET_FW_PROFILE_TYPE_ = TOleEnum;
|
||||||
|
const
|
||||||
|
NET_FW_PROFILE_DOMAIN = $00000000;
|
||||||
|
NET_FW_PROFILE_STANDARD = $00000001;
|
||||||
|
NET_FW_PROFILE_CURRENT = $00000002;
|
||||||
|
NET_FW_PROFILE_TYPE_MAX = $00000003;
|
||||||
|
|
||||||
|
// Konstanten für enum NET_FW_PROFILE_TYPE2_
|
||||||
|
type
|
||||||
|
NET_FW_PROFILE_TYPE2_ = TOleEnum;
|
||||||
|
const
|
||||||
|
NET_FW_PROFILE2_DOMAIN = $00000001;
|
||||||
|
NET_FW_PROFILE2_PRIVATE = $00000002;
|
||||||
|
NET_FW_PROFILE2_PUBLIC = $00000004;
|
||||||
|
NET_FW_PROFILE2_ALL = $7FFFFFFF;
|
||||||
|
|
||||||
|
// Konstanten für enum NET_FW_MODIFY_STATE_
|
||||||
|
type
|
||||||
|
NET_FW_MODIFY_STATE_ = TOleEnum;
|
||||||
|
const
|
||||||
|
NET_FW_MODIFY_STATE_OK = $00000000;
|
||||||
|
NET_FW_MODIFY_STATE_GP_OVERRIDE = $00000001;
|
||||||
|
NET_FW_MODIFY_STATE_INBOUND_BLOCKED = $00000002;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Forward-Deklaration von in der Typbibliothek definierten Typen
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwRemoteAdminSettings = interface;
|
||||||
|
INetFwRemoteAdminSettingsDisp = dispinterface;
|
||||||
|
INetFwIcmpSettings = interface;
|
||||||
|
INetFwIcmpSettingsDisp = dispinterface;
|
||||||
|
INetFwOpenPort = interface;
|
||||||
|
INetFwOpenPortDisp = dispinterface;
|
||||||
|
INetFwOpenPorts = interface;
|
||||||
|
INetFwOpenPortsDisp = dispinterface;
|
||||||
|
INetFwService = interface;
|
||||||
|
INetFwServiceDisp = dispinterface;
|
||||||
|
INetFwServices = interface;
|
||||||
|
INetFwServicesDisp = dispinterface;
|
||||||
|
INetFwAuthorizedApplication = interface;
|
||||||
|
INetFwAuthorizedApplicationDisp = dispinterface;
|
||||||
|
INetFwAuthorizedApplications = interface;
|
||||||
|
INetFwAuthorizedApplicationsDisp = dispinterface;
|
||||||
|
INetFwServiceRestriction = interface;
|
||||||
|
INetFwServiceRestrictionDisp = dispinterface;
|
||||||
|
INetFwRules = interface;
|
||||||
|
INetFwRulesDisp = dispinterface;
|
||||||
|
INetFwRule = interface;
|
||||||
|
INetFwRuleDisp = dispinterface;
|
||||||
|
INetFwProfile = interface;
|
||||||
|
INetFwProfileDisp = dispinterface;
|
||||||
|
INetFwPolicy = interface;
|
||||||
|
INetFwPolicyDisp = dispinterface;
|
||||||
|
INetFwPolicy2 = interface;
|
||||||
|
INetFwPolicy2Disp = dispinterface;
|
||||||
|
INetFwMgr = interface;
|
||||||
|
INetFwMgrDisp = dispinterface;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwRemoteAdminSettings
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {D4BECDDF-6F73-4A83-B832-9C66874CD20E}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwRemoteAdminSettings = interface(IDispatch)
|
||||||
|
['{D4BECDDF-6F73-4A83-B832-9C66874CD20E}']
|
||||||
|
function Get_IpVersion: NET_FW_IP_VERSION_; safecall;
|
||||||
|
procedure Set_IpVersion(IpVersion: NET_FW_IP_VERSION_); safecall;
|
||||||
|
function Get_Scope: NET_FW_SCOPE_; safecall;
|
||||||
|
procedure Set_Scope(Scope: NET_FW_SCOPE_); safecall;
|
||||||
|
function Get_RemoteAddresses: WideString; safecall;
|
||||||
|
procedure Set_RemoteAddresses(const remoteAddrs: WideString); safecall;
|
||||||
|
function Get_Enabled: WordBool; safecall;
|
||||||
|
procedure Set_Enabled(Enabled: WordBool); safecall;
|
||||||
|
property IpVersion: NET_FW_IP_VERSION_ read Get_IpVersion write Set_IpVersion;
|
||||||
|
property Scope: NET_FW_SCOPE_ read Get_Scope write Set_Scope;
|
||||||
|
property RemoteAddresses: WideString read Get_RemoteAddresses write Set_RemoteAddresses;
|
||||||
|
property Enabled: WordBool read Get_Enabled write Set_Enabled;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwRemoteAdminSettingsDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {D4BECDDF-6F73-4A83-B832-9C66874CD20E}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwRemoteAdminSettingsDisp = dispinterface
|
||||||
|
['{D4BECDDF-6F73-4A83-B832-9C66874CD20E}']
|
||||||
|
property IpVersion: NET_FW_IP_VERSION_ dispid 1;
|
||||||
|
property Scope: NET_FW_SCOPE_ dispid 2;
|
||||||
|
property RemoteAddresses: WideString dispid 3;
|
||||||
|
property Enabled: WordBool dispid 4;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwIcmpSettings
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {A6207B2E-7CDD-426A-951E-5E1CBC5AFEAD}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwIcmpSettings = interface(IDispatch)
|
||||||
|
['{A6207B2E-7CDD-426A-951E-5E1CBC5AFEAD}']
|
||||||
|
function Get_AllowOutboundDestinationUnreachable: WordBool; safecall;
|
||||||
|
procedure Set_AllowOutboundDestinationUnreachable(allow: WordBool); safecall;
|
||||||
|
function Get_AllowRedirect: WordBool; safecall;
|
||||||
|
procedure Set_AllowRedirect(allow: WordBool); safecall;
|
||||||
|
function Get_AllowInboundEchoRequest: WordBool; safecall;
|
||||||
|
procedure Set_AllowInboundEchoRequest(allow: WordBool); safecall;
|
||||||
|
function Get_AllowOutboundTimeExceeded: WordBool; safecall;
|
||||||
|
procedure Set_AllowOutboundTimeExceeded(allow: WordBool); safecall;
|
||||||
|
function Get_AllowOutboundParameterProblem: WordBool; safecall;
|
||||||
|
procedure Set_AllowOutboundParameterProblem(allow: WordBool); safecall;
|
||||||
|
function Get_AllowOutboundSourceQuench: WordBool; safecall;
|
||||||
|
procedure Set_AllowOutboundSourceQuench(allow: WordBool); safecall;
|
||||||
|
function Get_AllowInboundRouterRequest: WordBool; safecall;
|
||||||
|
procedure Set_AllowInboundRouterRequest(allow: WordBool); safecall;
|
||||||
|
function Get_AllowInboundTimestampRequest: WordBool; safecall;
|
||||||
|
procedure Set_AllowInboundTimestampRequest(allow: WordBool); safecall;
|
||||||
|
function Get_AllowInboundMaskRequest: WordBool; safecall;
|
||||||
|
procedure Set_AllowInboundMaskRequest(allow: WordBool); safecall;
|
||||||
|
function Get_AllowOutboundPacketTooBig: WordBool; safecall;
|
||||||
|
procedure Set_AllowOutboundPacketTooBig(allow: WordBool); safecall;
|
||||||
|
property AllowOutboundDestinationUnreachable: WordBool read Get_AllowOutboundDestinationUnreachable write Set_AllowOutboundDestinationUnreachable;
|
||||||
|
property AllowRedirect: WordBool read Get_AllowRedirect write Set_AllowRedirect;
|
||||||
|
property AllowInboundEchoRequest: WordBool read Get_AllowInboundEchoRequest write Set_AllowInboundEchoRequest;
|
||||||
|
property AllowOutboundTimeExceeded: WordBool read Get_AllowOutboundTimeExceeded write Set_AllowOutboundTimeExceeded;
|
||||||
|
property AllowOutboundParameterProblem: WordBool read Get_AllowOutboundParameterProblem write Set_AllowOutboundParameterProblem;
|
||||||
|
property AllowOutboundSourceQuench: WordBool read Get_AllowOutboundSourceQuench write Set_AllowOutboundSourceQuench;
|
||||||
|
property AllowInboundRouterRequest: WordBool read Get_AllowInboundRouterRequest write Set_AllowInboundRouterRequest;
|
||||||
|
property AllowInboundTimestampRequest: WordBool read Get_AllowInboundTimestampRequest write Set_AllowInboundTimestampRequest;
|
||||||
|
property AllowInboundMaskRequest: WordBool read Get_AllowInboundMaskRequest write Set_AllowInboundMaskRequest;
|
||||||
|
property AllowOutboundPacketTooBig: WordBool read Get_AllowOutboundPacketTooBig write Set_AllowOutboundPacketTooBig;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwIcmpSettingsDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {A6207B2E-7CDD-426A-951E-5E1CBC5AFEAD}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwIcmpSettingsDisp = dispinterface
|
||||||
|
['{A6207B2E-7CDD-426A-951E-5E1CBC5AFEAD}']
|
||||||
|
property AllowOutboundDestinationUnreachable: WordBool dispid 1;
|
||||||
|
property AllowRedirect: WordBool dispid 2;
|
||||||
|
property AllowInboundEchoRequest: WordBool dispid 3;
|
||||||
|
property AllowOutboundTimeExceeded: WordBool dispid 4;
|
||||||
|
property AllowOutboundParameterProblem: WordBool dispid 5;
|
||||||
|
property AllowOutboundSourceQuench: WordBool dispid 6;
|
||||||
|
property AllowInboundRouterRequest: WordBool dispid 7;
|
||||||
|
property AllowInboundTimestampRequest: WordBool dispid 8;
|
||||||
|
property AllowInboundMaskRequest: WordBool dispid 9;
|
||||||
|
property AllowOutboundPacketTooBig: WordBool dispid 10;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwOpenPort
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {E0483BA0-47FF-4D9C-A6D6-7741D0B195F7}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwOpenPort = interface(IDispatch)
|
||||||
|
['{E0483BA0-47FF-4D9C-A6D6-7741D0B195F7}']
|
||||||
|
function Get_Name: WideString; safecall;
|
||||||
|
procedure Set_Name(const Name: WideString); safecall;
|
||||||
|
function Get_IpVersion: NET_FW_IP_VERSION_; safecall;
|
||||||
|
procedure Set_IpVersion(IpVersion: NET_FW_IP_VERSION_); safecall;
|
||||||
|
function Get_Protocol: NET_FW_IP_PROTOCOL_; safecall;
|
||||||
|
procedure Set_Protocol(ipProtocol: NET_FW_IP_PROTOCOL_); safecall;
|
||||||
|
function Get_Port: Integer; safecall;
|
||||||
|
procedure Set_Port(portNumber: Integer); safecall;
|
||||||
|
function Get_Scope: NET_FW_SCOPE_; safecall;
|
||||||
|
procedure Set_Scope(Scope: NET_FW_SCOPE_); safecall;
|
||||||
|
function Get_RemoteAddresses: WideString; safecall;
|
||||||
|
procedure Set_RemoteAddresses(const remoteAddrs: WideString); safecall;
|
||||||
|
function Get_Enabled: WordBool; safecall;
|
||||||
|
procedure Set_Enabled(Enabled: WordBool); safecall;
|
||||||
|
function Get_BuiltIn: WordBool; safecall;
|
||||||
|
property Name: WideString read Get_Name write Set_Name;
|
||||||
|
property IpVersion: NET_FW_IP_VERSION_ read Get_IpVersion write Set_IpVersion;
|
||||||
|
property Protocol: NET_FW_IP_PROTOCOL_ read Get_Protocol write Set_Protocol;
|
||||||
|
property Port: Integer read Get_Port write Set_Port;
|
||||||
|
property Scope: NET_FW_SCOPE_ read Get_Scope write Set_Scope;
|
||||||
|
property RemoteAddresses: WideString read Get_RemoteAddresses write Set_RemoteAddresses;
|
||||||
|
property Enabled: WordBool read Get_Enabled write Set_Enabled;
|
||||||
|
property BuiltIn: WordBool read Get_BuiltIn;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwOpenPortDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {E0483BA0-47FF-4D9C-A6D6-7741D0B195F7}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwOpenPortDisp = dispinterface
|
||||||
|
['{E0483BA0-47FF-4D9C-A6D6-7741D0B195F7}']
|
||||||
|
property Name: WideString dispid 1;
|
||||||
|
property IpVersion: NET_FW_IP_VERSION_ dispid 2;
|
||||||
|
property Protocol: NET_FW_IP_PROTOCOL_ dispid 3;
|
||||||
|
property Port: Integer dispid 4;
|
||||||
|
property Scope: NET_FW_SCOPE_ dispid 5;
|
||||||
|
property RemoteAddresses: WideString dispid 6;
|
||||||
|
property Enabled: WordBool dispid 7;
|
||||||
|
property BuiltIn: WordBool readonly dispid 8;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwOpenPorts
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {C0E9D7FA-E07E-430A-B19A-090CE82D92E2}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwOpenPorts = interface(IDispatch)
|
||||||
|
['{C0E9D7FA-E07E-430A-B19A-090CE82D92E2}']
|
||||||
|
function Get_Count: Integer; safecall;
|
||||||
|
procedure Add(const Port: INetFwOpenPort); safecall;
|
||||||
|
procedure Remove(portNumber: Integer; ipProtocol: NET_FW_IP_PROTOCOL_); safecall;
|
||||||
|
function Item(portNumber: Integer; ipProtocol: NET_FW_IP_PROTOCOL_): INetFwOpenPort; safecall;
|
||||||
|
function Get__NewEnum: IUnknown; safecall;
|
||||||
|
property Count: Integer read Get_Count;
|
||||||
|
property _NewEnum: IUnknown read Get__NewEnum;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwOpenPortsDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {C0E9D7FA-E07E-430A-B19A-090CE82D92E2}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwOpenPortsDisp = dispinterface
|
||||||
|
['{C0E9D7FA-E07E-430A-B19A-090CE82D92E2}']
|
||||||
|
property Count: Integer readonly dispid 1;
|
||||||
|
procedure Add(const Port: INetFwOpenPort); dispid 2;
|
||||||
|
procedure Remove(portNumber: Integer; ipProtocol: NET_FW_IP_PROTOCOL_); dispid 3;
|
||||||
|
function Item(portNumber: Integer; ipProtocol: NET_FW_IP_PROTOCOL_): INetFwOpenPort; dispid 4;
|
||||||
|
property _NewEnum: IUnknown readonly dispid -4;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwService
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {79FD57C8-908E-4A36-9888-D5B3F0A444CF}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwService = interface(IDispatch)
|
||||||
|
['{79FD57C8-908E-4A36-9888-D5B3F0A444CF}']
|
||||||
|
function Get_Name: WideString; safecall;
|
||||||
|
function Get_Type_: NET_FW_SERVICE_TYPE_; safecall;
|
||||||
|
function Get_Customized: WordBool; safecall;
|
||||||
|
function Get_IpVersion: NET_FW_IP_VERSION_; safecall;
|
||||||
|
procedure Set_IpVersion(IpVersion: NET_FW_IP_VERSION_); safecall;
|
||||||
|
function Get_Scope: NET_FW_SCOPE_; safecall;
|
||||||
|
procedure Set_Scope(Scope: NET_FW_SCOPE_); safecall;
|
||||||
|
function Get_RemoteAddresses: WideString; safecall;
|
||||||
|
procedure Set_RemoteAddresses(const remoteAddrs: WideString); safecall;
|
||||||
|
function Get_Enabled: WordBool; safecall;
|
||||||
|
procedure Set_Enabled(Enabled: WordBool); safecall;
|
||||||
|
function Get_GloballyOpenPorts: INetFwOpenPorts; safecall;
|
||||||
|
property Name: WideString read Get_Name;
|
||||||
|
property Type_: NET_FW_SERVICE_TYPE_ read Get_Type_;
|
||||||
|
property Customized: WordBool read Get_Customized;
|
||||||
|
property IpVersion: NET_FW_IP_VERSION_ read Get_IpVersion write Set_IpVersion;
|
||||||
|
property Scope: NET_FW_SCOPE_ read Get_Scope write Set_Scope;
|
||||||
|
property RemoteAddresses: WideString read Get_RemoteAddresses write Set_RemoteAddresses;
|
||||||
|
property Enabled: WordBool read Get_Enabled write Set_Enabled;
|
||||||
|
property GloballyOpenPorts: INetFwOpenPorts read Get_GloballyOpenPorts;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwServiceDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {79FD57C8-908E-4A36-9888-D5B3F0A444CF}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwServiceDisp = dispinterface
|
||||||
|
['{79FD57C8-908E-4A36-9888-D5B3F0A444CF}']
|
||||||
|
property Name: WideString readonly dispid 1;
|
||||||
|
property Type_: NET_FW_SERVICE_TYPE_ readonly dispid 2;
|
||||||
|
property Customized: WordBool readonly dispid 3;
|
||||||
|
property IpVersion: NET_FW_IP_VERSION_ dispid 4;
|
||||||
|
property Scope: NET_FW_SCOPE_ dispid 5;
|
||||||
|
property RemoteAddresses: WideString dispid 6;
|
||||||
|
property Enabled: WordBool dispid 7;
|
||||||
|
property GloballyOpenPorts: INetFwOpenPorts readonly dispid 8;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwServices
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {79649BB4-903E-421B-94C9-79848E79F6EE}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwServices = interface(IDispatch)
|
||||||
|
['{79649BB4-903E-421B-94C9-79848E79F6EE}']
|
||||||
|
function Get_Count: Integer; safecall;
|
||||||
|
function Item(svcType: NET_FW_SERVICE_TYPE_): INetFwService; safecall;
|
||||||
|
function Get__NewEnum: IUnknown; safecall;
|
||||||
|
property Count: Integer read Get_Count;
|
||||||
|
property _NewEnum: IUnknown read Get__NewEnum;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwServicesDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {79649BB4-903E-421B-94C9-79848E79F6EE}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwServicesDisp = dispinterface
|
||||||
|
['{79649BB4-903E-421B-94C9-79848E79F6EE}']
|
||||||
|
property Count: Integer readonly dispid 1;
|
||||||
|
function Item(svcType: NET_FW_SERVICE_TYPE_): INetFwService; dispid 2;
|
||||||
|
property _NewEnum: IUnknown readonly dispid -4;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwAuthorizedApplication
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {B5E64FFA-C2C5-444E-A301-FB5E00018050}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwAuthorizedApplication = interface(IDispatch)
|
||||||
|
['{B5E64FFA-C2C5-444E-A301-FB5E00018050}']
|
||||||
|
function Get_Name: WideString; safecall;
|
||||||
|
procedure Set_Name(const Name: WideString); safecall;
|
||||||
|
function Get_ProcessImageFileName: WideString; safecall;
|
||||||
|
procedure Set_ProcessImageFileName(const imageFileName: WideString); safecall;
|
||||||
|
function Get_IpVersion: NET_FW_IP_VERSION_; safecall;
|
||||||
|
procedure Set_IpVersion(IpVersion: NET_FW_IP_VERSION_); safecall;
|
||||||
|
function Get_Scope: NET_FW_SCOPE_; safecall;
|
||||||
|
procedure Set_Scope(Scope: NET_FW_SCOPE_); safecall;
|
||||||
|
function Get_RemoteAddresses: WideString; safecall;
|
||||||
|
procedure Set_RemoteAddresses(const remoteAddrs: WideString); safecall;
|
||||||
|
function Get_Enabled: WordBool; safecall;
|
||||||
|
procedure Set_Enabled(Enabled: WordBool); safecall;
|
||||||
|
property Name: WideString read Get_Name write Set_Name;
|
||||||
|
property ProcessImageFileName: WideString read Get_ProcessImageFileName write Set_ProcessImageFileName;
|
||||||
|
property IpVersion: NET_FW_IP_VERSION_ read Get_IpVersion write Set_IpVersion;
|
||||||
|
property Scope: NET_FW_SCOPE_ read Get_Scope write Set_Scope;
|
||||||
|
property RemoteAddresses: WideString read Get_RemoteAddresses write Set_RemoteAddresses;
|
||||||
|
property Enabled: WordBool read Get_Enabled write Set_Enabled;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwAuthorizedApplicationDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {B5E64FFA-C2C5-444E-A301-FB5E00018050}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwAuthorizedApplicationDisp = dispinterface
|
||||||
|
['{B5E64FFA-C2C5-444E-A301-FB5E00018050}']
|
||||||
|
property Name: WideString dispid 1;
|
||||||
|
property ProcessImageFileName: WideString dispid 2;
|
||||||
|
property IpVersion: NET_FW_IP_VERSION_ dispid 3;
|
||||||
|
property Scope: NET_FW_SCOPE_ dispid 4;
|
||||||
|
property RemoteAddresses: WideString dispid 5;
|
||||||
|
property Enabled: WordBool dispid 6;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwAuthorizedApplications
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {644EFD52-CCF9-486C-97A2-39F352570B30}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwAuthorizedApplications = interface(IDispatch)
|
||||||
|
['{644EFD52-CCF9-486C-97A2-39F352570B30}']
|
||||||
|
function Get_Count: Integer; safecall;
|
||||||
|
procedure Add(const app: INetFwAuthorizedApplication); safecall;
|
||||||
|
procedure Remove(const imageFileName: WideString); safecall;
|
||||||
|
function Item(const imageFileName: WideString): INetFwAuthorizedApplication; safecall;
|
||||||
|
function Get__NewEnum: IUnknown; safecall;
|
||||||
|
property Count: Integer read Get_Count;
|
||||||
|
property _NewEnum: IUnknown read Get__NewEnum;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwAuthorizedApplicationsDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {644EFD52-CCF9-486C-97A2-39F352570B30}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwAuthorizedApplicationsDisp = dispinterface
|
||||||
|
['{644EFD52-CCF9-486C-97A2-39F352570B30}']
|
||||||
|
property Count: Integer readonly dispid 1;
|
||||||
|
procedure Add(const app: INetFwAuthorizedApplication); dispid 2;
|
||||||
|
procedure Remove(const imageFileName: WideString); dispid 3;
|
||||||
|
function Item(const imageFileName: WideString): INetFwAuthorizedApplication; dispid 4;
|
||||||
|
property _NewEnum: IUnknown readonly dispid -4;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwServiceRestriction
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {8267BBE3-F890-491C-B7B6-2DB1EF0E5D2B}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwServiceRestriction = interface(IDispatch)
|
||||||
|
['{8267BBE3-F890-491C-B7B6-2DB1EF0E5D2B}']
|
||||||
|
procedure RestrictService(const serviceName: WideString; const appName: WideString;
|
||||||
|
RestrictService: WordBool; serviceSidRestricted: WordBool); safecall;
|
||||||
|
function ServiceRestricted(const serviceName: WideString; const appName: WideString): WordBool; safecall;
|
||||||
|
function Get_Rules: INetFwRules; safecall;
|
||||||
|
property Rules: INetFwRules read Get_Rules;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwServiceRestrictionDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {8267BBE3-F890-491C-B7B6-2DB1EF0E5D2B}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwServiceRestrictionDisp = dispinterface
|
||||||
|
['{8267BBE3-F890-491C-B7B6-2DB1EF0E5D2B}']
|
||||||
|
procedure RestrictService(const serviceName: WideString; const appName: WideString;
|
||||||
|
RestrictService: WordBool; serviceSidRestricted: WordBool); dispid 1;
|
||||||
|
function ServiceRestricted(const serviceName: WideString; const appName: WideString): WordBool; dispid 2;
|
||||||
|
property Rules: INetFwRules readonly dispid 3;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwRules
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {9C4C6277-5027-441E-AFAE-CA1F542DA009}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwRules = interface(IDispatch)
|
||||||
|
['{9C4C6277-5027-441E-AFAE-CA1F542DA009}']
|
||||||
|
function Get_Count: Integer; safecall;
|
||||||
|
procedure Add(const rule: INetFwRule); safecall;
|
||||||
|
procedure Remove(const Name: WideString); safecall;
|
||||||
|
function Item(const Name: WideString): INetFwRule; safecall;
|
||||||
|
function Get__NewEnum: IUnknown; safecall;
|
||||||
|
property Count: Integer read Get_Count;
|
||||||
|
property _NewEnum: IUnknown read Get__NewEnum;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwRulesDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {9C4C6277-5027-441E-AFAE-CA1F542DA009}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwRulesDisp = dispinterface
|
||||||
|
['{9C4C6277-5027-441E-AFAE-CA1F542DA009}']
|
||||||
|
property Count: Integer readonly dispid 1;
|
||||||
|
procedure Add(const rule: INetFwRule); dispid 2;
|
||||||
|
procedure Remove(const Name: WideString); dispid 3;
|
||||||
|
function Item(const Name: WideString): INetFwRule; dispid 4;
|
||||||
|
property _NewEnum: IUnknown readonly dispid -4;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwRule
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {AF230D27-BABA-4E42-ACED-F524F22CFCE2}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwRule = interface(IDispatch)
|
||||||
|
['{AF230D27-BABA-4E42-ACED-F524F22CFCE2}']
|
||||||
|
function Get_Name: WideString; safecall;
|
||||||
|
procedure Set_Name(const Name: WideString); safecall;
|
||||||
|
function Get_Description: WideString; safecall;
|
||||||
|
procedure Set_Description(const desc: WideString); safecall;
|
||||||
|
function Get_ApplicationName: WideString; safecall;
|
||||||
|
procedure Set_ApplicationName(const imageFileName: WideString); safecall;
|
||||||
|
function Get_serviceName: WideString; safecall;
|
||||||
|
procedure Set_serviceName(const serviceName: WideString); safecall;
|
||||||
|
function Get_Protocol: Integer; safecall;
|
||||||
|
procedure Set_Protocol(Protocol: Integer); safecall;
|
||||||
|
function Get_LocalPorts: WideString; safecall;
|
||||||
|
procedure Set_LocalPorts(const portNumbers: WideString); safecall;
|
||||||
|
function Get_RemotePorts: WideString; safecall;
|
||||||
|
procedure Set_RemotePorts(const portNumbers: WideString); safecall;
|
||||||
|
function Get_LocalAddresses: WideString; safecall;
|
||||||
|
procedure Set_LocalAddresses(const localAddrs: WideString); safecall;
|
||||||
|
function Get_RemoteAddresses: WideString; safecall;
|
||||||
|
procedure Set_RemoteAddresses(const remoteAddrs: WideString); safecall;
|
||||||
|
function Get_IcmpTypesAndCodes: WideString; safecall;
|
||||||
|
procedure Set_IcmpTypesAndCodes(const IcmpTypesAndCodes: WideString); safecall;
|
||||||
|
function Get_Direction: NET_FW_RULE_DIRECTION_; safecall;
|
||||||
|
procedure Set_Direction(dir: NET_FW_RULE_DIRECTION_); safecall;
|
||||||
|
function Get_Interfaces: OleVariant; safecall;
|
||||||
|
procedure Set_Interfaces(Interfaces: OleVariant); safecall;
|
||||||
|
function Get_InterfaceTypes: WideString; safecall;
|
||||||
|
procedure Set_InterfaceTypes(const InterfaceTypes: WideString); safecall;
|
||||||
|
function Get_Enabled: WordBool; safecall;
|
||||||
|
procedure Set_Enabled(Enabled: WordBool); safecall;
|
||||||
|
function Get_Grouping: WideString; safecall;
|
||||||
|
procedure Set_Grouping(const context: WideString); safecall;
|
||||||
|
function Get_Profiles: Integer; safecall;
|
||||||
|
procedure Set_Profiles(profileTypesBitmask: Integer); safecall;
|
||||||
|
function Get_EdgeTraversal: WordBool; safecall;
|
||||||
|
procedure Set_EdgeTraversal(Enabled: WordBool); safecall;
|
||||||
|
function Get_Action: NET_FW_ACTION_; safecall;
|
||||||
|
procedure Set_Action(Action: NET_FW_ACTION_); safecall;
|
||||||
|
property Name: WideString read Get_Name write Set_Name;
|
||||||
|
property Description: WideString read Get_Description write Set_Description;
|
||||||
|
property ApplicationName: WideString read Get_ApplicationName write Set_ApplicationName;
|
||||||
|
property serviceName: WideString read Get_serviceName write Set_serviceName;
|
||||||
|
property Protocol: Integer read Get_Protocol write Set_Protocol;
|
||||||
|
property LocalPorts: WideString read Get_LocalPorts write Set_LocalPorts;
|
||||||
|
property RemotePorts: WideString read Get_RemotePorts write Set_RemotePorts;
|
||||||
|
property LocalAddresses: WideString read Get_LocalAddresses write Set_LocalAddresses;
|
||||||
|
property RemoteAddresses: WideString read Get_RemoteAddresses write Set_RemoteAddresses;
|
||||||
|
property IcmpTypesAndCodes: WideString read Get_IcmpTypesAndCodes write Set_IcmpTypesAndCodes;
|
||||||
|
property Direction: NET_FW_RULE_DIRECTION_ read Get_Direction write Set_Direction;
|
||||||
|
property Interfaces: OleVariant read Get_Interfaces write Set_Interfaces;
|
||||||
|
property InterfaceTypes: WideString read Get_InterfaceTypes write Set_InterfaceTypes;
|
||||||
|
property Enabled: WordBool read Get_Enabled write Set_Enabled;
|
||||||
|
property Grouping: WideString read Get_Grouping write Set_Grouping;
|
||||||
|
property Profiles: Integer read Get_Profiles write Set_Profiles;
|
||||||
|
property EdgeTraversal: WordBool read Get_EdgeTraversal write Set_EdgeTraversal;
|
||||||
|
property Action: NET_FW_ACTION_ read Get_Action write Set_Action;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwRuleDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {AF230D27-BABA-4E42-ACED-F524F22CFCE2}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwRuleDisp = dispinterface
|
||||||
|
['{AF230D27-BABA-4E42-ACED-F524F22CFCE2}']
|
||||||
|
property Name: WideString dispid 1;
|
||||||
|
property Description: WideString dispid 2;
|
||||||
|
property ApplicationName: WideString dispid 3;
|
||||||
|
property serviceName: WideString dispid 4;
|
||||||
|
property Protocol: Integer dispid 5;
|
||||||
|
property LocalPorts: WideString dispid 6;
|
||||||
|
property RemotePorts: WideString dispid 7;
|
||||||
|
property LocalAddresses: WideString dispid 8;
|
||||||
|
property RemoteAddresses: WideString dispid 9;
|
||||||
|
property IcmpTypesAndCodes: WideString dispid 10;
|
||||||
|
property Direction: NET_FW_RULE_DIRECTION_ dispid 11;
|
||||||
|
property Interfaces: OleVariant dispid 12;
|
||||||
|
property InterfaceTypes: WideString dispid 13;
|
||||||
|
property Enabled: WordBool dispid 14;
|
||||||
|
property Grouping: WideString dispid 15;
|
||||||
|
property Profiles: Integer dispid 16;
|
||||||
|
property EdgeTraversal: WordBool dispid 17;
|
||||||
|
property Action: NET_FW_ACTION_ dispid 18;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwProfile
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {174A0DDA-E9F9-449D-993B-21AB667CA456}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwProfile = interface(IDispatch)
|
||||||
|
['{174A0DDA-E9F9-449D-993B-21AB667CA456}']
|
||||||
|
function Get_Type_: NET_FW_PROFILE_TYPE_; safecall;
|
||||||
|
function Get_FirewallEnabled: WordBool; safecall;
|
||||||
|
procedure Set_FirewallEnabled(Enabled: WordBool); safecall;
|
||||||
|
function Get_ExceptionsNotAllowed: WordBool; safecall;
|
||||||
|
procedure Set_ExceptionsNotAllowed(notAllowed: WordBool); safecall;
|
||||||
|
function Get_NotificationsDisabled: WordBool; safecall;
|
||||||
|
procedure Set_NotificationsDisabled(disabled: WordBool); safecall;
|
||||||
|
function Get_UnicastResponsesToMulticastBroadcastDisabled: WordBool; safecall;
|
||||||
|
procedure Set_UnicastResponsesToMulticastBroadcastDisabled(disabled: WordBool); safecall;
|
||||||
|
function Get_RemoteAdminSettings: INetFwRemoteAdminSettings; safecall;
|
||||||
|
function Get_IcmpSettings: INetFwIcmpSettings; safecall;
|
||||||
|
function Get_GloballyOpenPorts: INetFwOpenPorts; safecall;
|
||||||
|
function Get_Services: INetFwServices; safecall;
|
||||||
|
function Get_AuthorizedApplications: INetFwAuthorizedApplications; safecall;
|
||||||
|
property Type_: NET_FW_PROFILE_TYPE_ read Get_Type_;
|
||||||
|
property FirewallEnabled: WordBool read Get_FirewallEnabled write Set_FirewallEnabled;
|
||||||
|
property ExceptionsNotAllowed: WordBool read Get_ExceptionsNotAllowed write Set_ExceptionsNotAllowed;
|
||||||
|
property NotificationsDisabled: WordBool read Get_NotificationsDisabled write Set_NotificationsDisabled;
|
||||||
|
property UnicastResponsesToMulticastBroadcastDisabled: WordBool read Get_UnicastResponsesToMulticastBroadcastDisabled write Set_UnicastResponsesToMulticastBroadcastDisabled;
|
||||||
|
property RemoteAdminSettings: INetFwRemoteAdminSettings read Get_RemoteAdminSettings;
|
||||||
|
property IcmpSettings: INetFwIcmpSettings read Get_IcmpSettings;
|
||||||
|
property GloballyOpenPorts: INetFwOpenPorts read Get_GloballyOpenPorts;
|
||||||
|
property Services: INetFwServices read Get_Services;
|
||||||
|
property AuthorizedApplications: INetFwAuthorizedApplications read Get_AuthorizedApplications;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwProfileDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {174A0DDA-E9F9-449D-993B-21AB667CA456}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwProfileDisp = dispinterface
|
||||||
|
['{174A0DDA-E9F9-449D-993B-21AB667CA456}']
|
||||||
|
property Type_: NET_FW_PROFILE_TYPE_ readonly dispid 1;
|
||||||
|
property FirewallEnabled: WordBool dispid 2;
|
||||||
|
property ExceptionsNotAllowed: WordBool dispid 3;
|
||||||
|
property NotificationsDisabled: WordBool dispid 4;
|
||||||
|
property UnicastResponsesToMulticastBroadcastDisabled: WordBool dispid 5;
|
||||||
|
property RemoteAdminSettings: INetFwRemoteAdminSettings readonly dispid 6;
|
||||||
|
property IcmpSettings: INetFwIcmpSettings readonly dispid 7;
|
||||||
|
property GloballyOpenPorts: INetFwOpenPorts readonly dispid 8;
|
||||||
|
property Services: INetFwServices readonly dispid 9;
|
||||||
|
property AuthorizedApplications: INetFwAuthorizedApplications readonly dispid 10;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwPolicy
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {D46D2478-9AC9-4008-9DC7-5563CE5536CC}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwPolicy = interface(IDispatch)
|
||||||
|
['{D46D2478-9AC9-4008-9DC7-5563CE5536CC}']
|
||||||
|
function Get_CurrentProfile: INetFwProfile; safecall;
|
||||||
|
function GetProfileByType(profileType: NET_FW_PROFILE_TYPE_): INetFwProfile; safecall;
|
||||||
|
property CurrentProfile: INetFwProfile read Get_CurrentProfile;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwPolicyDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {D46D2478-9AC9-4008-9DC7-5563CE5536CC}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwPolicyDisp = dispinterface
|
||||||
|
['{D46D2478-9AC9-4008-9DC7-5563CE5536CC}']
|
||||||
|
property CurrentProfile: INetFwProfile readonly dispid 1;
|
||||||
|
function GetProfileByType(profileType: NET_FW_PROFILE_TYPE_): INetFwProfile; dispid 2;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwPolicy2
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {98325047-C671-4174-8D81-DEFCD3F03186}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwPolicy2 = interface(IDispatch)
|
||||||
|
['{98325047-C671-4174-8D81-DEFCD3F03186}']
|
||||||
|
function Get_CurrentProfileTypes: Integer; safecall;
|
||||||
|
function Get_FirewallEnabled(profileType: NET_FW_PROFILE_TYPE2_): WordBool; safecall;
|
||||||
|
procedure Set_FirewallEnabled(profileType: NET_FW_PROFILE_TYPE2_; Enabled: WordBool); safecall;
|
||||||
|
function Get_ExcludedInterfaces(profileType: NET_FW_PROFILE_TYPE2_): OleVariant; safecall;
|
||||||
|
procedure Set_ExcludedInterfaces(profileType: NET_FW_PROFILE_TYPE2_; Interfaces: OleVariant); safecall;
|
||||||
|
function Get_BlockAllInboundTraffic(profileType: NET_FW_PROFILE_TYPE2_): WordBool; safecall;
|
||||||
|
procedure Set_BlockAllInboundTraffic(profileType: NET_FW_PROFILE_TYPE2_; Block: WordBool); safecall;
|
||||||
|
function Get_NotificationsDisabled(profileType: NET_FW_PROFILE_TYPE2_): WordBool; safecall;
|
||||||
|
procedure Set_NotificationsDisabled(profileType: NET_FW_PROFILE_TYPE2_; disabled: WordBool); safecall;
|
||||||
|
function Get_UnicastResponsesToMulticastBroadcastDisabled(profileType: NET_FW_PROFILE_TYPE2_): WordBool; safecall;
|
||||||
|
procedure Set_UnicastResponsesToMulticastBroadcastDisabled(profileType: NET_FW_PROFILE_TYPE2_;
|
||||||
|
disabled: WordBool); safecall;
|
||||||
|
function Get_Rules: INetFwRules; safecall;
|
||||||
|
function Get_ServiceRestriction: INetFwServiceRestriction; safecall;
|
||||||
|
procedure EnableRuleGroup(profileTypesBitmask: Integer; const group: WideString;
|
||||||
|
enable: WordBool); safecall;
|
||||||
|
function IsRuleGroupEnabled(profileTypesBitmask: Integer; const group: WideString): WordBool; safecall;
|
||||||
|
procedure RestoreLocalFirewallDefaults; safecall;
|
||||||
|
function Get_DefaultInboundAction(profileType: NET_FW_PROFILE_TYPE2_): NET_FW_ACTION_; safecall;
|
||||||
|
procedure Set_DefaultInboundAction(profileType: NET_FW_PROFILE_TYPE2_; Action: NET_FW_ACTION_); safecall;
|
||||||
|
function Get_DefaultOutboundAction(profileType: NET_FW_PROFILE_TYPE2_): NET_FW_ACTION_; safecall;
|
||||||
|
procedure Set_DefaultOutboundAction(profileType: NET_FW_PROFILE_TYPE2_; Action: NET_FW_ACTION_); safecall;
|
||||||
|
function Get_IsRuleGroupCurrentlyEnabled(const group: WideString): WordBool; safecall;
|
||||||
|
function Get_LocalPolicyModifyState: NET_FW_MODIFY_STATE_; safecall;
|
||||||
|
property CurrentProfileTypes: Integer read Get_CurrentProfileTypes;
|
||||||
|
property FirewallEnabled[profileType: NET_FW_PROFILE_TYPE2_]: WordBool read Get_FirewallEnabled write Set_FirewallEnabled;
|
||||||
|
property ExcludedInterfaces[profileType: NET_FW_PROFILE_TYPE2_]: OleVariant read Get_ExcludedInterfaces write Set_ExcludedInterfaces;
|
||||||
|
property BlockAllInboundTraffic[profileType: NET_FW_PROFILE_TYPE2_]: WordBool read Get_BlockAllInboundTraffic write Set_BlockAllInboundTraffic;
|
||||||
|
property NotificationsDisabled[profileType: NET_FW_PROFILE_TYPE2_]: WordBool read Get_NotificationsDisabled write Set_NotificationsDisabled;
|
||||||
|
property UnicastResponsesToMulticastBroadcastDisabled[profileType: NET_FW_PROFILE_TYPE2_]: WordBool read Get_UnicastResponsesToMulticastBroadcastDisabled write Set_UnicastResponsesToMulticastBroadcastDisabled;
|
||||||
|
property Rules: INetFwRules read Get_Rules;
|
||||||
|
property ServiceRestriction: INetFwServiceRestriction read Get_ServiceRestriction;
|
||||||
|
property DefaultInboundAction[profileType: NET_FW_PROFILE_TYPE2_]: NET_FW_ACTION_ read Get_DefaultInboundAction write Set_DefaultInboundAction;
|
||||||
|
property DefaultOutboundAction[profileType: NET_FW_PROFILE_TYPE2_]: NET_FW_ACTION_ read Get_DefaultOutboundAction write Set_DefaultOutboundAction;
|
||||||
|
property IsRuleGroupCurrentlyEnabled[const group: WideString]: WordBool read Get_IsRuleGroupCurrentlyEnabled;
|
||||||
|
property LocalPolicyModifyState: NET_FW_MODIFY_STATE_ read Get_LocalPolicyModifyState;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwPolicy2Disp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {98325047-C671-4174-8D81-DEFCD3F03186}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwPolicy2Disp = dispinterface
|
||||||
|
['{98325047-C671-4174-8D81-DEFCD3F03186}']
|
||||||
|
property CurrentProfileTypes: Integer readonly dispid 1;
|
||||||
|
property FirewallEnabled[profileType: NET_FW_PROFILE_TYPE2_]: WordBool dispid 2;
|
||||||
|
property ExcludedInterfaces[profileType: NET_FW_PROFILE_TYPE2_]: OleVariant dispid 3;
|
||||||
|
property BlockAllInboundTraffic[profileType: NET_FW_PROFILE_TYPE2_]: WordBool dispid 4;
|
||||||
|
property NotificationsDisabled[profileType: NET_FW_PROFILE_TYPE2_]: WordBool dispid 5;
|
||||||
|
property UnicastResponsesToMulticastBroadcastDisabled[profileType: NET_FW_PROFILE_TYPE2_]: WordBool dispid 6;
|
||||||
|
property Rules: INetFwRules readonly dispid 7;
|
||||||
|
property ServiceRestriction: INetFwServiceRestriction readonly dispid 8;
|
||||||
|
procedure EnableRuleGroup(profileTypesBitmask: Integer; const group: WideString;
|
||||||
|
enable: WordBool); dispid 9;
|
||||||
|
function IsRuleGroupEnabled(profileTypesBitmask: Integer; const group: WideString): WordBool; dispid 10;
|
||||||
|
procedure RestoreLocalFirewallDefaults; dispid 11;
|
||||||
|
property DefaultInboundAction[profileType: NET_FW_PROFILE_TYPE2_]: NET_FW_ACTION_ dispid 12;
|
||||||
|
property DefaultOutboundAction[profileType: NET_FW_PROFILE_TYPE2_]: NET_FW_ACTION_ dispid 13;
|
||||||
|
property IsRuleGroupCurrentlyEnabled[const group: WideString]: WordBool readonly dispid 14;
|
||||||
|
property LocalPolicyModifyState: NET_FW_MODIFY_STATE_ readonly dispid 15;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// Schnittstelle: INetFwMgr
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {F7898AF5-CAC4-4632-A2EC-DA06E5111AF2}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwMgr = interface(IDispatch)
|
||||||
|
['{F7898AF5-CAC4-4632-A2EC-DA06E5111AF2}']
|
||||||
|
function Get_LocalPolicy: INetFwPolicy; safecall;
|
||||||
|
function Get_CurrentProfileType: NET_FW_PROFILE_TYPE_; safecall;
|
||||||
|
procedure RestoreDefaults; safecall;
|
||||||
|
procedure IsPortAllowed(const imageFileName: WideString; IpVersion: NET_FW_IP_VERSION_;
|
||||||
|
portNumber: Integer; const localAddress: WideString;
|
||||||
|
ipProtocol: NET_FW_IP_PROTOCOL_; out allowed: OleVariant;
|
||||||
|
out restricted: OleVariant); safecall;
|
||||||
|
procedure IsIcmpTypeAllowed(IpVersion: NET_FW_IP_VERSION_; const localAddress: WideString;
|
||||||
|
Type_: Byte; out allowed: OleVariant; out restricted: OleVariant); safecall;
|
||||||
|
property LocalPolicy: INetFwPolicy read Get_LocalPolicy;
|
||||||
|
property CurrentProfileType: NET_FW_PROFILE_TYPE_ read Get_CurrentProfileType;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// *********************************************************************//
|
||||||
|
// DispIntf: INetFwMgrDisp
|
||||||
|
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||||
|
// GUID: {F7898AF5-CAC4-4632-A2EC-DA06E5111AF2}
|
||||||
|
// *********************************************************************//
|
||||||
|
INetFwMgrDisp = dispinterface
|
||||||
|
['{F7898AF5-CAC4-4632-A2EC-DA06E5111AF2}']
|
||||||
|
property LocalPolicy: INetFwPolicy readonly dispid 1;
|
||||||
|
property CurrentProfileType: NET_FW_PROFILE_TYPE_ readonly dispid 2;
|
||||||
|
procedure RestoreDefaults; dispid 3;
|
||||||
|
procedure IsPortAllowed(const imageFileName: WideString; IpVersion: NET_FW_IP_VERSION_;
|
||||||
|
portNumber: Integer; const localAddress: WideString;
|
||||||
|
ipProtocol: NET_FW_IP_PROTOCOL_; out allowed: OleVariant;
|
||||||
|
out restricted: OleVariant); dispid 4;
|
||||||
|
procedure IsIcmpTypeAllowed(IpVersion: NET_FW_IP_VERSION_; const localAddress: WideString;
|
||||||
|
Type_: Byte; out allowed: OleVariant; out restricted: OleVariant); dispid 5;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses ComObj;
|
||||||
|
|
||||||
|
end.
|
||||||
987
build/Source/ServiceControl.pas
Normal file
987
build/Source/ServiceControl.pas
Normal file
|
|
@ -0,0 +1,987 @@
|
||||||
|
{
|
||||||
|
License Agreement
|
||||||
|
|
||||||
|
This content is subject to the Mozilla Public License Version 1.1 (the "License");
|
||||||
|
You may not use this plugin except in compliance with the License. You may
|
||||||
|
obtain a copy of the License at http://www.mozilla.org/MPL.
|
||||||
|
|
||||||
|
Alternatively, you may redistribute this library, use and/or modify it
|
||||||
|
under the terms of the GNU Lesser General Public License as published
|
||||||
|
by the Free Software Foundation; either version 2.1 of the License,
|
||||||
|
or (at your option) any later version. You may obtain a copy
|
||||||
|
of the LGPL at www.gnu.org/copyleft.
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
||||||
|
for the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The original code is ServiceControl.pas, released April 16, 2007.
|
||||||
|
|
||||||
|
The initial developer of the original code is Rainer Budde (http://www.speed-soft.de).
|
||||||
|
|
||||||
|
SimpleSC - NSIS Service Control Plugin is written, published and maintaned by
|
||||||
|
Rainer Budde (rainer@speed-soft.de).
|
||||||
|
}
|
||||||
|
unit ServiceControl;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, SysUtils, WinSvc;
|
||||||
|
|
||||||
|
function InstallService(ServiceName, DisplayName: String; ServiceType: DWORD; StartType: DWORD; BinaryPathName: String; Dependencies: String; Username: String; Password: String): Integer;
|
||||||
|
function RemoveService(ServiceName: String): Integer;
|
||||||
|
function GetServiceName(DisplayName: String; var Name: String): Integer;
|
||||||
|
function GetServiceDisplayName(ServiceName: String; var Name: String): Integer;
|
||||||
|
function GetServiceStatus(ServiceName: String; var Status: DWORD): Integer;
|
||||||
|
function GetServiceBinaryPath(ServiceName: String; var BinaryPath: String): Integer;
|
||||||
|
function GetServiceStartType(ServiceName: String; var StartType: DWORD): Integer;
|
||||||
|
function GetServiceDescription(ServiceName: String; var Description: String): Integer;
|
||||||
|
function GetServiceLogon(ServiceName: String; var Username: String): Integer;
|
||||||
|
function SetServiceStartType(ServiceName: String; StartType: DWORD): Integer;
|
||||||
|
function SetServiceDescription(ServiceName: String; Description: String): Integer;
|
||||||
|
function SetServiceLogon(ServiceName: String; Username: String; Password: String): Integer;
|
||||||
|
function SetServiceBinaryPath(ServiceName: String; BinaryPath: String): Integer;
|
||||||
|
function ServiceIsRunning(ServiceName: String; var IsRunning: Boolean): Integer;
|
||||||
|
function ServiceIsStopped(ServiceName: String; var IsStopped: Boolean): Integer;
|
||||||
|
function ServiceIsPaused(ServiceName: String; var IsPaused: Boolean): Integer;
|
||||||
|
function StartService(ServiceName: String; ServiceArguments: String): Integer;
|
||||||
|
function StopService(ServiceName: String): Integer;
|
||||||
|
function PauseService(ServiceName: String): Integer;
|
||||||
|
function ContinueService(ServiceName: String): Integer;
|
||||||
|
function RestartService(ServiceName: String; ServiceArguments: String): Integer;
|
||||||
|
function ExistsService(ServiceName: String): Integer;
|
||||||
|
function GetErrorMessage(ErrorCode: Integer): String;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
function WaitForStatus(ServiceName: String; Status: DWord): Integer;
|
||||||
|
var
|
||||||
|
CurrentStatus: DWord;
|
||||||
|
StatusResult: Integer;
|
||||||
|
StatusReached: Boolean;
|
||||||
|
TimeOutReached: Boolean;
|
||||||
|
StartTickCount: Cardinal;
|
||||||
|
const
|
||||||
|
STATUS_TIMEOUT = 30000;
|
||||||
|
WAIT_TIMEOUT = 250;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
|
||||||
|
StatusReached := False;
|
||||||
|
TimeOutReached := False;
|
||||||
|
|
||||||
|
StartTickCount := GetTickCount;
|
||||||
|
|
||||||
|
while not StatusReached and not TimeOutReached do
|
||||||
|
begin
|
||||||
|
StatusResult := GetServiceStatus(ServiceName, CurrentStatus);
|
||||||
|
|
||||||
|
if StatusResult = 0 then
|
||||||
|
begin
|
||||||
|
if Status = CurrentStatus then
|
||||||
|
StatusReached := True
|
||||||
|
else
|
||||||
|
Sleep(WAIT_TIMEOUT);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := StatusResult;
|
||||||
|
|
||||||
|
if (StartTickCount + STATUS_TIMEOUT) < GetTickCount then
|
||||||
|
begin
|
||||||
|
TimeOutReached := True;
|
||||||
|
Result := ERROR_SERVICE_REQUEST_TIMEOUT;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function ExistsService(ServiceName: String): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_CONNECT);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_QUERY_CONFIG);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
CloseServiceHandle(ServiceHandle)
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function StartService(ServiceName: String; ServiceArguments: String): Integer;
|
||||||
|
type
|
||||||
|
TArguments = Array of PChar;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
ServiceArgVectors: TArguments;
|
||||||
|
NumServiceArgs: DWORD;
|
||||||
|
const
|
||||||
|
ArgDelimitterQuote: String = '"';
|
||||||
|
ArgDelimitterWhiteSpace: String = ' ';
|
||||||
|
|
||||||
|
procedure GetServiceArguments(ServiceArguments: String; var NumServiceArgs: DWORD; var ServiceArgVectors: TArguments);
|
||||||
|
var
|
||||||
|
Param: String;
|
||||||
|
Split: Boolean;
|
||||||
|
Quoted: Boolean;
|
||||||
|
CharIsDelimitter: Boolean;
|
||||||
|
begin
|
||||||
|
ServiceArgVectors := nil;
|
||||||
|
NumServiceArgs := 0;
|
||||||
|
|
||||||
|
Quoted := False;
|
||||||
|
|
||||||
|
while Length(ServiceArguments) > 0 do
|
||||||
|
begin
|
||||||
|
Split := False;
|
||||||
|
CharIsDelimitter := False;
|
||||||
|
|
||||||
|
if ServiceArguments[1] = ' ' then
|
||||||
|
if not Quoted then
|
||||||
|
begin
|
||||||
|
CharIsDelimitter := True;
|
||||||
|
Split := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if ServiceArguments[1] = '"' then
|
||||||
|
begin
|
||||||
|
Quoted := not Quoted;
|
||||||
|
CharIsDelimitter := True;
|
||||||
|
|
||||||
|
if not Quoted then
|
||||||
|
Split := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not CharIsDelimitter then
|
||||||
|
Param := Param + ServiceArguments[1];
|
||||||
|
|
||||||
|
if Split or (Length(ServiceArguments) = 1) then
|
||||||
|
begin
|
||||||
|
SetLength(ServiceArgVectors, Length(ServiceArgVectors) + 1);
|
||||||
|
GetMem(ServiceArgVectors[Length(ServiceArgVectors) -1], Length(Param) + 1);
|
||||||
|
StrPCopy(ServiceArgVectors[Length(ServiceArgVectors) -1], Param);
|
||||||
|
|
||||||
|
Param := '';
|
||||||
|
|
||||||
|
Delete(ServiceArguments, 1, 1);
|
||||||
|
ServiceArguments := Trim(ServiceArguments);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Delete(ServiceArguments, 1, 1);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Length(ServiceArgVectors) > 0 then
|
||||||
|
NumServiceArgs := Length(ServiceArgVectors);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure FreeServiceArguments(ServiceArgVectors: TArguments);
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
if Length(ServiceArgVectors) > 0 then
|
||||||
|
for i := 0 to Length(ServiceArgVectors) -1 do
|
||||||
|
FreeMem(ServiceArgVectors[i]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_CONNECT);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_START);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
GetServiceArguments(ServiceArguments, NumServiceArgs, ServiceArgVectors);
|
||||||
|
|
||||||
|
if WinSvc.StartService(ServiceHandle, NumServiceArgs, ServiceArgVectors[0]) then
|
||||||
|
Result := WaitForStatus(ServiceName, SERVICE_RUNNING)
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
FreeServiceArguments(ServiceArgVectors);
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function StopService(ServiceName: String): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
ServiceStatus: TServiceStatus;
|
||||||
|
Dependencies: PEnumServiceStatus;
|
||||||
|
BytesNeeded: Cardinal;
|
||||||
|
ServicesReturned: Cardinal;
|
||||||
|
ServicesEnumerated: Boolean;
|
||||||
|
EnumerationSuccess: Boolean;
|
||||||
|
i: Cardinal;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
|
||||||
|
BytesNeeded := 0;
|
||||||
|
ServicesReturned := 0;
|
||||||
|
|
||||||
|
Dependencies := nil;
|
||||||
|
ServicesEnumerated := False;
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_CONNECT or SC_MANAGER_ENUMERATE_SERVICE);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_STOP or SERVICE_ENUMERATE_DEPENDENTS);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
if not EnumDependentServices(ServiceHandle, SERVICE_ACTIVE, Dependencies^, 0, BytesNeeded, ServicesReturned) then
|
||||||
|
begin
|
||||||
|
ServicesEnumerated := True;
|
||||||
|
GetMem(Dependencies, BytesNeeded);
|
||||||
|
|
||||||
|
EnumerationSuccess := EnumDependentServices(ServiceHandle, SERVICE_ACTIVE, Dependencies^, BytesNeeded, BytesNeeded, ServicesReturned);
|
||||||
|
|
||||||
|
if EnumerationSuccess and (ServicesReturned > 0) then
|
||||||
|
begin
|
||||||
|
for i := 1 to ServicesReturned do
|
||||||
|
begin
|
||||||
|
Result := StopService(Dependencies.lpServiceName);
|
||||||
|
|
||||||
|
if Result <> 0 then
|
||||||
|
Break;
|
||||||
|
|
||||||
|
Inc(Dependencies);
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (ServicesEnumerated and (Result = 0)) or not ServicesEnumerated then
|
||||||
|
begin
|
||||||
|
if ControlService(ServiceHandle, SERVICE_CONTROL_STOP, ServiceStatus) then
|
||||||
|
Result := WaitForStatus(ServiceName, SERVICE_STOPPED)
|
||||||
|
else
|
||||||
|
Result := System.GetLastError
|
||||||
|
end;
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function PauseService(ServiceName: String): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
ServiceStatus: TServiceStatus;
|
||||||
|
begin
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_CONNECT);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_PAUSE_CONTINUE);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
if ControlService(ServiceHandle, SERVICE_CONTROL_PAUSE, ServiceStatus) then
|
||||||
|
Result := WaitForStatus(ServiceName, SERVICE_PAUSED)
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function ContinueService(ServiceName: String): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
ServiceStatus: TServiceStatus;
|
||||||
|
begin
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_CONNECT);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_PAUSE_CONTINUE);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
if ControlService(ServiceHandle, SERVICE_CONTROL_CONTINUE, ServiceStatus) then
|
||||||
|
Result := WaitForStatus(ServiceName, SERVICE_RUNNING)
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetServiceName(DisplayName: String; var Name: String): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceName: PChar;
|
||||||
|
ServiceBuffer: Cardinal;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
|
||||||
|
ServiceBuffer := 255;
|
||||||
|
ServiceName := StrAlloc(ServiceBuffer+1);
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_CONNECT);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
if WinSvc.GetServiceKeyName(ManagerHandle, PChar(DisplayName), ServiceName, ServiceBuffer) then
|
||||||
|
Name := ServiceName
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetServiceDisplayName(ServiceName: String; var Name: String): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
DisplayName: PChar;
|
||||||
|
ServiceBuffer: Cardinal;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
|
||||||
|
ServiceBuffer := 255;
|
||||||
|
DisplayName := StrAlloc(ServiceBuffer+1);
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_CONNECT);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
if WinSvc.GetServiceDisplayName(ManagerHandle, PChar(ServiceName), DisplayName, ServiceBuffer) then
|
||||||
|
Name := DisplayName
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetServiceStatus(ServiceName: String; var Status: DWORD): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
ServiceStatus: TServiceStatus;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_CONNECT);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_QUERY_STATUS);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
if QueryServiceStatus(ServiceHandle, ServiceStatus) then
|
||||||
|
Status := ServiceStatus.dwCurrentState
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetServiceBinaryPath(ServiceName: String; var BinaryPath: String): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
BytesNeeded: DWORD;
|
||||||
|
ServiceConfig: PQueryServiceConfig;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
ServiceConfig := nil;
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_CONNECT);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_QUERY_CONFIG);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
if not QueryServiceConfig(ServiceHandle, ServiceConfig, 0, BytesNeeded) and (System.GetLastError = ERROR_INSUFFICIENT_BUFFER) then
|
||||||
|
begin
|
||||||
|
GetMem(ServiceConfig, BytesNeeded);
|
||||||
|
|
||||||
|
if QueryServiceConfig(ServiceHandle, ServiceConfig, BytesNeeded, BytesNeeded) then
|
||||||
|
BinaryPath := ServiceConfig^.lpBinaryPathName
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
FreeMem(ServiceConfig);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetServiceStartType(ServiceName: String; var StartType: DWORD): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
BytesNeeded: DWORD;
|
||||||
|
ServiceConfig: PQueryServiceConfig;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
ServiceConfig := nil;
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_CONNECT);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_QUERY_CONFIG);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
if not QueryServiceConfig(ServiceHandle, ServiceConfig, 0, BytesNeeded) and (System.GetLastError = ERROR_INSUFFICIENT_BUFFER) then
|
||||||
|
begin
|
||||||
|
GetMem(ServiceConfig, BytesNeeded);
|
||||||
|
|
||||||
|
if QueryServiceConfig(ServiceHandle, ServiceConfig, BytesNeeded, BytesNeeded) then
|
||||||
|
StartType := ServiceConfig^.dwStartType
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
FreeMem(ServiceConfig);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetServiceDescription(ServiceName: String; var Description: String): Integer;
|
||||||
|
const
|
||||||
|
SERVICE_CONFIG_DESCRIPTION = 1;
|
||||||
|
type
|
||||||
|
TServiceDescription = record
|
||||||
|
lpDescription: PAnsiChar;
|
||||||
|
end;
|
||||||
|
PServiceDescription = ^TServiceDescription;
|
||||||
|
var
|
||||||
|
QueryServiceConfig2: function(hService: SC_HANDLE; dwInfoLevel: DWORD; pBuffer: Pointer; cbBufSize: DWORD; var cbBytesNeeded: Cardinal): BOOL; stdcall;
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
LockHandle: SC_LOCK;
|
||||||
|
ServiceDescription: PServiceDescription;
|
||||||
|
BytesNeeded: Cardinal;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_LOCK);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_QUERY_CONFIG);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
LockHandle := LockServiceDatabase(ManagerHandle);
|
||||||
|
|
||||||
|
if LockHandle <> nil then
|
||||||
|
begin
|
||||||
|
@QueryServiceConfig2 := GetProcAddress(GetModuleHandle(advapi32), 'QueryServiceConfig2A');
|
||||||
|
|
||||||
|
if Assigned(@QueryServiceConfig2) then
|
||||||
|
begin
|
||||||
|
|
||||||
|
if not QueryServiceConfig2(ServiceHandle, SERVICE_CONFIG_DESCRIPTION, nil, 0, BytesNeeded) and (System.GetLastError = ERROR_INSUFFICIENT_BUFFER) then
|
||||||
|
begin
|
||||||
|
GetMem(ServiceDescription, BytesNeeded);
|
||||||
|
|
||||||
|
if QueryServiceConfig2(ServiceHandle, SERVICE_CONFIG_DESCRIPTION, ServiceDescription, BytesNeeded, BytesNeeded) then
|
||||||
|
Description := ServiceDescription.lpDescription
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
FreeMem(ServiceDescription);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
UnlockServiceDatabase(LockHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetServiceLogon(ServiceName: String; var Username: String): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
BytesNeeded: DWORD;
|
||||||
|
ServiceConfig: PQueryServiceConfig;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
ServiceConfig := nil;
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_CONNECT);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_QUERY_CONFIG);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
if not QueryServiceConfig(ServiceHandle, ServiceConfig, 0, BytesNeeded) and (System.GetLastError = ERROR_INSUFFICIENT_BUFFER) then
|
||||||
|
begin
|
||||||
|
GetMem(ServiceConfig, BytesNeeded);
|
||||||
|
|
||||||
|
if QueryServiceConfig(ServiceHandle, ServiceConfig, BytesNeeded, BytesNeeded) then
|
||||||
|
Username := ServiceConfig^.lpServiceStartName
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
FreeMem(ServiceConfig);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SetServiceDescription(ServiceName: String; Description: String): Integer;
|
||||||
|
const
|
||||||
|
SERVICE_CONFIG_DESCRIPTION = 1;
|
||||||
|
var
|
||||||
|
ChangeServiceConfig2: function(hService: SC_HANDLE; dwInfoLevel: DWORD; lpInfo: Pointer): BOOL; stdcall;
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
LockHandle: SC_LOCK;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_LOCK);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_CHANGE_CONFIG);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
LockHandle := LockServiceDatabase(ManagerHandle);
|
||||||
|
|
||||||
|
if LockHandle <> nil then
|
||||||
|
begin
|
||||||
|
@ChangeServiceConfig2 := GetProcAddress(GetModuleHandle(advapi32), 'ChangeServiceConfig2A');
|
||||||
|
|
||||||
|
if Assigned(@ChangeServiceConfig2) then
|
||||||
|
begin
|
||||||
|
if not ChangeServiceConfig2(ServiceHandle, SERVICE_CONFIG_DESCRIPTION, @Description) then
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
UnlockServiceDatabase(LockHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SetServiceStartType(ServiceName: String; StartType: DWORD): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
LockHandle: SC_LOCK;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_LOCK);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_CHANGE_CONFIG);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
LockHandle := LockServiceDatabase(ManagerHandle);
|
||||||
|
|
||||||
|
if LockHandle <> nil then
|
||||||
|
begin
|
||||||
|
if not ChangeServiceConfig(ServiceHandle, SERVICE_NO_CHANGE, StartType, SERVICE_NO_CHANGE, nil, nil, nil, nil, nil, nil, nil) then
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
UnlockServiceDatabase(LockHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SetServiceLogon(ServiceName: String; Username: String; Password: String): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
LockHandle: SC_LOCK;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_LOCK);
|
||||||
|
|
||||||
|
if Pos('\', Username) = 0 then
|
||||||
|
Username := '.\' + Username;
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_CHANGE_CONFIG);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
LockHandle := LockServiceDatabase(ManagerHandle);
|
||||||
|
|
||||||
|
if LockHandle <> nil then
|
||||||
|
begin
|
||||||
|
if not ChangeServiceConfig(ServiceHandle, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, nil, nil, nil, nil, PChar(Username), PChar(Password), nil) then
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
UnlockServiceDatabase(LockHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SetServiceBinaryPath(ServiceName: String; BinaryPath: String): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
LockHandle: SC_LOCK;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_LOCK);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_CHANGE_CONFIG);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
LockHandle := LockServiceDatabase(ManagerHandle);
|
||||||
|
|
||||||
|
if LockHandle <> nil then
|
||||||
|
begin
|
||||||
|
if not ChangeServiceConfig(ServiceHandle, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, PChar(BinaryPath), nil, nil, nil, nil, nil, nil) then
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
UnlockServiceDatabase(LockHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function ServiceIsRunning(ServiceName: String; var IsRunning: Boolean): Integer;
|
||||||
|
var
|
||||||
|
Status: DWORD;
|
||||||
|
begin
|
||||||
|
Result := GetServiceStatus(ServiceName, Status);
|
||||||
|
|
||||||
|
if Result = 0 then
|
||||||
|
IsRunning := Status = SERVICE_RUNNING
|
||||||
|
else
|
||||||
|
IsRunning := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function ServiceIsStopped(ServiceName: String; var IsStopped: Boolean): Integer;
|
||||||
|
var
|
||||||
|
Status: DWORD;
|
||||||
|
begin
|
||||||
|
Result := GetServiceStatus(ServiceName, Status);
|
||||||
|
|
||||||
|
if Result = 0 then
|
||||||
|
IsStopped := Status = SERVICE_STOPPED
|
||||||
|
else
|
||||||
|
IsStopped := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function ServiceIsPaused(ServiceName: String; var IsPaused: Boolean): Integer;
|
||||||
|
var
|
||||||
|
Status: DWORD;
|
||||||
|
begin
|
||||||
|
Result := GetServiceStatus(ServiceName, Status);
|
||||||
|
|
||||||
|
if Result = 0 then
|
||||||
|
IsPaused := Status = SERVICE_PAUSED
|
||||||
|
else
|
||||||
|
IsPaused := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function RestartService(ServiceName: String; ServiceArguments: String): Integer;
|
||||||
|
begin
|
||||||
|
Result := StopService(ServiceName);
|
||||||
|
|
||||||
|
if Result = 0 then
|
||||||
|
Result := StartService(ServiceName, ServiceArguments);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function InstallService(ServiceName, DisplayName: String; ServiceType: DWORD;
|
||||||
|
StartType: DWORD; BinaryPathName: String; Dependencies: String;
|
||||||
|
Username: String; Password: String): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
PDependencies: PChar;
|
||||||
|
PUsername: PChar;
|
||||||
|
PPassword: PChar;
|
||||||
|
const
|
||||||
|
ReplaceDelimitter: String = '/';
|
||||||
|
|
||||||
|
function Replace(Value: String): String;
|
||||||
|
begin
|
||||||
|
while Pos(ReplaceDelimitter, Value) <> 0 do
|
||||||
|
begin
|
||||||
|
Result := Result + Copy(Value, 1, Pos(ReplaceDelimitter, Value) -1) + Chr(0);
|
||||||
|
Delete(Value, 1, Pos(ReplaceDelimitter, Value));
|
||||||
|
end;
|
||||||
|
|
||||||
|
Result := Result + Value + Chr(0) + Chr(0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
|
||||||
|
if Dependencies = '' then
|
||||||
|
PDependencies := nil
|
||||||
|
else
|
||||||
|
PDependencies := PChar(Replace(Dependencies));
|
||||||
|
|
||||||
|
if UserName = '' then
|
||||||
|
PUsername := nil
|
||||||
|
else
|
||||||
|
PUsername := PChar(Username);
|
||||||
|
|
||||||
|
if Password = '' then
|
||||||
|
PPassword := nil
|
||||||
|
else
|
||||||
|
PPassword := PChar(Password);
|
||||||
|
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_ALL_ACCESS);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := CreateService(ManagerHandle,
|
||||||
|
PChar(ServiceName),
|
||||||
|
PChar(DisplayName),
|
||||||
|
SERVICE_START or SERVICE_QUERY_STATUS or _DELETE,
|
||||||
|
ServiceType,
|
||||||
|
StartType,
|
||||||
|
SERVICE_ERROR_NORMAL,
|
||||||
|
PChar(BinaryPathName),
|
||||||
|
nil,
|
||||||
|
nil,
|
||||||
|
PDependencies,
|
||||||
|
PUsername,
|
||||||
|
PPassword);
|
||||||
|
|
||||||
|
if ServiceHandle <> 0 then
|
||||||
|
CloseServiceHandle(ServiceHandle)
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function RemoveService(ServiceName: String): Integer;
|
||||||
|
var
|
||||||
|
ManagerHandle: SC_HANDLE;
|
||||||
|
ServiceHandle: SC_HANDLE;
|
||||||
|
LockHandle: SC_LOCK;
|
||||||
|
IsStopped: Boolean;
|
||||||
|
Deleted: Boolean;
|
||||||
|
begin
|
||||||
|
IsStopped := False;
|
||||||
|
|
||||||
|
Result := ServiceIsStopped(ServiceName, IsStopped);
|
||||||
|
|
||||||
|
if Result = 0 then
|
||||||
|
if not IsStopped then
|
||||||
|
Result := StopService(ServiceName);
|
||||||
|
|
||||||
|
if Result = 0 then
|
||||||
|
begin
|
||||||
|
ManagerHandle := OpenSCManager('', nil, SC_MANAGER_ALL_ACCESS);
|
||||||
|
|
||||||
|
if ManagerHandle > 0 then
|
||||||
|
begin
|
||||||
|
ServiceHandle := OpenService(ManagerHandle, PChar(ServiceName), SERVICE_ALL_ACCESS);
|
||||||
|
|
||||||
|
if ServiceHandle > 0 then
|
||||||
|
begin
|
||||||
|
LockHandle := LockServiceDatabase(ManagerHandle);
|
||||||
|
|
||||||
|
if LockHandle <> nil then
|
||||||
|
begin
|
||||||
|
Deleted := DeleteService(ServiceHandle);
|
||||||
|
|
||||||
|
if not Deleted then
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
UnlockServiceDatabase(LockHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ServiceHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
|
||||||
|
CloseServiceHandle(ManagerHandle);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := System.GetLastError;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetErrorMessage(ErrorCode: Integer): String;
|
||||||
|
begin
|
||||||
|
Result := SysErrorMessage(ErrorCode);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
35
build/Source/SimpleFC.cfg
Normal file
35
build/Source/SimpleFC.cfg
Normal file
|
|
@ -0,0 +1,35 @@
|
||||||
|
-$A8
|
||||||
|
-$B-
|
||||||
|
-$C+
|
||||||
|
-$D+
|
||||||
|
-$E-
|
||||||
|
-$F-
|
||||||
|
-$G+
|
||||||
|
-$H+
|
||||||
|
-$I+
|
||||||
|
-$J-
|
||||||
|
-$K-
|
||||||
|
-$L+
|
||||||
|
-$M-
|
||||||
|
-$N+
|
||||||
|
-$O-
|
||||||
|
-$P+
|
||||||
|
-$Q-
|
||||||
|
-$R-
|
||||||
|
-$S-
|
||||||
|
-$T-
|
||||||
|
-$U-
|
||||||
|
-$V+
|
||||||
|
-$W-
|
||||||
|
-$X+
|
||||||
|
-$YD
|
||||||
|
-$Z1
|
||||||
|
-cg
|
||||||
|
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||||
|
-H+
|
||||||
|
-W+
|
||||||
|
-M
|
||||||
|
-$M16384,1048576
|
||||||
|
-K$00400000
|
||||||
|
-LE"c:\programme\borland\delphi6\Projects\Bpl"
|
||||||
|
-LN"c:\programme\borland\delphi6\Projects\Bpl"
|
||||||
90
build/Source/SimpleFC.dof
Normal file
90
build/Source/SimpleFC.dof
Normal file
|
|
@ -0,0 +1,90 @@
|
||||||
|
[FileVersion]
|
||||||
|
Version=6.0
|
||||||
|
[Compiler]
|
||||||
|
A=8
|
||||||
|
B=0
|
||||||
|
C=1
|
||||||
|
D=1
|
||||||
|
E=0
|
||||||
|
F=0
|
||||||
|
G=1
|
||||||
|
H=1
|
||||||
|
I=1
|
||||||
|
J=0
|
||||||
|
K=0
|
||||||
|
L=1
|
||||||
|
M=0
|
||||||
|
N=1
|
||||||
|
O=0
|
||||||
|
P=1
|
||||||
|
Q=0
|
||||||
|
R=0
|
||||||
|
S=0
|
||||||
|
T=0
|
||||||
|
U=0
|
||||||
|
V=1
|
||||||
|
W=0
|
||||||
|
X=1
|
||||||
|
Y=1
|
||||||
|
Z=1
|
||||||
|
ShowHints=1
|
||||||
|
ShowWarnings=1
|
||||||
|
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||||
|
[Linker]
|
||||||
|
MapFile=0
|
||||||
|
OutputObjs=0
|
||||||
|
ConsoleApp=1
|
||||||
|
DebugInfo=0
|
||||||
|
RemoteSymbols=0
|
||||||
|
MinStackSize=16384
|
||||||
|
MaxStackSize=1048576
|
||||||
|
ImageBase=4194304
|
||||||
|
ExeDescription=
|
||||||
|
[Directories]
|
||||||
|
OutputDir=
|
||||||
|
UnitOutputDir=
|
||||||
|
PackageDLLOutputDir=
|
||||||
|
PackageDCPOutputDir=
|
||||||
|
SearchPath=
|
||||||
|
Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;dbrtl;adortl;vcldb;qrpt;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;teeqr;ibxpress;visualclx;visualdbclx;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;dbexpress;dbxcds;dclOffice2k;soaprtl;Jcl;VirtualTreesD6;VirtualShellToolsD6;VirtualExplorerListviewExD6;ThemeManagerD6;JclVcl;JvCoreD6R;JvSystemD6R;JvStdCtrlsD6R;JvAppFrmD6R;JvBandsD6R;JvDBD6R;JvDlgsD6R;JvBDED6R;JvCmpD6R;JvCryptD6R;JvCtrlsD6R;JvCustomD6R;JvDockingD6R;JvDotNetCtrlsD6R;JvEDID6R;JvGlobusD6R;JvHMID6R;JvInterpreterD6R;JvJansD6R;JvManagedThreadsD6R;JvMMD6R;JvNetD6R;JvPageCompsD6R;JvPluginD6R;JvPrintPreviewD6R;JvRuntimeDesignD6R;JvTimeFrameworkD6R;JvUIBD6R;JvValidatorsD6R;JvWizardD6R;JvXPCtrlsD6R;FModPackage;NetBrowserPackage;ThreadCopyPackage;TMSMenusD6;DSPack_D6;SNTPServer
|
||||||
|
Conditionals=
|
||||||
|
DebugSourceDirs=
|
||||||
|
UsePackages=0
|
||||||
|
[Parameters]
|
||||||
|
RunParams=
|
||||||
|
HostApplication=
|
||||||
|
Launcher=
|
||||||
|
UseLauncher=0
|
||||||
|
DebugCWD=
|
||||||
|
[Language]
|
||||||
|
ActiveLang=
|
||||||
|
ProjectLang=
|
||||||
|
RootDir=
|
||||||
|
[Version Info]
|
||||||
|
IncludeVerInfo=0
|
||||||
|
AutoIncBuild=0
|
||||||
|
MajorVer=1
|
||||||
|
MinorVer=0
|
||||||
|
Release=0
|
||||||
|
Build=0
|
||||||
|
Debug=0
|
||||||
|
PreRelease=0
|
||||||
|
Special=0
|
||||||
|
Private=0
|
||||||
|
DLL=0
|
||||||
|
Locale=1031
|
||||||
|
CodePage=1252
|
||||||
|
[Version Info Keys]
|
||||||
|
CompanyName=
|
||||||
|
FileDescription=
|
||||||
|
FileVersion=1.0.0.0
|
||||||
|
InternalName=
|
||||||
|
LegalCopyright=
|
||||||
|
LegalTrademarks=
|
||||||
|
OriginalFilename=
|
||||||
|
ProductName=
|
||||||
|
ProductVersion=1.0.0.0
|
||||||
|
Comments=
|
||||||
|
[HistoryLists\hlUnitAliases]
|
||||||
|
Count=1
|
||||||
|
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||||
629
build/Source/SimpleFC.dpr
Normal file
629
build/Source/SimpleFC.dpr
Normal file
|
|
@ -0,0 +1,629 @@
|
||||||
|
library SimpleFC;
|
||||||
|
|
||||||
|
uses
|
||||||
|
NSIS, Windows, FirewallControl, SysUtils;
|
||||||
|
|
||||||
|
function ResultToStr(Value: Boolean): String;
|
||||||
|
begin
|
||||||
|
if Value then
|
||||||
|
result := '0'
|
||||||
|
else
|
||||||
|
result := '1';
|
||||||
|
end;
|
||||||
|
|
||||||
|
function BoolToStr(Value: Boolean): String;
|
||||||
|
begin
|
||||||
|
if Value then
|
||||||
|
result := '1'
|
||||||
|
else
|
||||||
|
result := '0';
|
||||||
|
end;
|
||||||
|
|
||||||
|
function StrToBool(Value: String): Boolean;
|
||||||
|
begin
|
||||||
|
if Value = '1' then
|
||||||
|
result := True
|
||||||
|
else
|
||||||
|
result := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AddPort(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Port: Integer;
|
||||||
|
Name: String;
|
||||||
|
Protocol: NET_FW_IP_PROTOCOL;
|
||||||
|
Scope: NET_FW_SCOPE;
|
||||||
|
Enabled: Boolean;
|
||||||
|
IpVersion: NET_FW_IP_VERSION;
|
||||||
|
RemoteAddresses: String;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Port := StrToInt(PopString);
|
||||||
|
Name := PopString;
|
||||||
|
Protocol := NET_FW_IP_PROTOCOL(StrToInt(PopString));
|
||||||
|
Scope := NET_FW_SCOPE(StrToInt(PopString));
|
||||||
|
IpVersion := NET_FW_IP_VERSION(StrToInt(PopString));
|
||||||
|
RemoteAddresses := PopString;
|
||||||
|
Enabled := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AddPort(Port,
|
||||||
|
Name,
|
||||||
|
Protocol,
|
||||||
|
Scope,
|
||||||
|
IpVersion,
|
||||||
|
RemoteAddresses,
|
||||||
|
Enabled) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure RemovePort(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Port: Integer;
|
||||||
|
Protocol: NET_FW_IP_PROTOCOL;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Port := StrToInt(PopString);
|
||||||
|
Protocol := NET_FW_IP_PROTOCOL(StrToInt(PopString));
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.RemovePort(Port, Protocol) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AddApplication(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Name: String;
|
||||||
|
BinaryPath: String;
|
||||||
|
IpVersion: NET_FW_IP_VERSION;
|
||||||
|
Scope: NET_FW_SCOPE;
|
||||||
|
RemoteAdresses: String;
|
||||||
|
Enabled: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Name := PopString;
|
||||||
|
BinaryPath := PopString;
|
||||||
|
Scope := NET_FW_SCOPE(StrToInt(PopString));
|
||||||
|
IpVersion := NET_FW_IP_VERSION(StrToInt(PopString));
|
||||||
|
RemoteAdresses := PopString;
|
||||||
|
Enabled := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AddApplication(Name,
|
||||||
|
BinaryPath,
|
||||||
|
Scope,
|
||||||
|
IpVersion,
|
||||||
|
RemoteAdresses,
|
||||||
|
Enabled) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure RemoveApplication(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
BinaryPath: String;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
BinaryPath := PopString;
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.RemoveApplication(BinaryPath) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure IsPortAdded(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Port: Integer;
|
||||||
|
Protocol: NET_FW_IP_PROTOCOL;
|
||||||
|
Added: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Port := StrToInt(PopString);
|
||||||
|
Protocol := NET_FW_IP_PROTOCOL(StrToInt(PopString));
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.IsPortAdded(Port, Protocol, Added) = 0);
|
||||||
|
PushString(BoolToStr(Added));
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure IsApplicationAdded(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
BinaryPath: String;
|
||||||
|
Added: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
BinaryPath := PopString;
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.IsApplicationAdded(BinaryPath, Added) = 0);
|
||||||
|
PushString(BoolToStr(Added));
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure IsPortEnabled(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Port: Integer;
|
||||||
|
Protocol: NET_FW_IP_PROTOCOL;
|
||||||
|
Enabled: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Port := StrToInt(PopString);
|
||||||
|
Protocol := NET_FW_IP_PROTOCOL(StrToInt(PopString));
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.IsPortEnabled(Port, Protocol, Enabled) = 0);
|
||||||
|
PushString(BoolToStr(Enabled));
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure IsApplicationEnabled(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
BinaryPath: String;
|
||||||
|
Enabled: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
BinaryPath := PopString;
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.IsApplicationEnabled(BinaryPath, Enabled) = 0);
|
||||||
|
PushString(BoolToStr(Enabled));
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure EnableDisablePort(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Port: Integer;
|
||||||
|
Protocol: NET_FW_IP_PROTOCOL;
|
||||||
|
Enabled: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Port := StrToInt(PopString);
|
||||||
|
Protocol := NET_FW_IP_PROTOCOL(StrToInt(PopString));
|
||||||
|
Enabled := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.EnableDisablePort(Port, Protocol, Enabled) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure EnableDisableApplication(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
BinaryPath: String;
|
||||||
|
Enabled: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
BinaryPath := PopString;
|
||||||
|
Enabled := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.EnableDisableApplication(BinaryPath, Enabled) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure IsFirewallEnabled(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Enabled: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.IsFirewallEnabled(Enabled) = 0);
|
||||||
|
PushString(BoolToStr(Enabled));
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure EnableDisableFirewall(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Enabled: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Enabled := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.EnableDisableFirewall(Enabled) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AllowDisallowExceptionsNotAllowed(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
NotAllowed: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
NotAllowed := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AllowDisallowExceptionsNotAllowed(NotAllowed) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AreExceptionsNotAllowed(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
NotAllowed: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AreExceptionsNotAllowed(NotAllowed) = 0);
|
||||||
|
PushString(BoolToStr(NotAllowed));
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure EnableDisableNotifications(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Enabled: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Enabled := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.EnableDisableNotifications(Enabled) = 0);
|
||||||
|
PushString(BoolToStr(Enabled));
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AreNotificationsEnabled(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Enabled: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AreNotificationsEnabled(Enabled) = 0);
|
||||||
|
PushString(BoolToStr(Enabled));
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure StartStopFirewallService(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Enabled: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Enabled := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.StartStopFirewallService(Enabled));
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure IsFirewallServiceRunning(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
IsRunning: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.IsFirewallServiceRunning(IsRunning));
|
||||||
|
PushString(BoolToStr(IsRunning));
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure RestoreDefaults(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.RestoreDefaults = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AllowDisallowIcmpOutboundDestinationUnreachable(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Allow: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Allow := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AllowDisallowIcmpOutboundDestinationUnreachable(Allow) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AllowDisallowIcmpRedirect(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Allow: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Allow := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AllowDisallowIcmpRedirect(Allow) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AllowDisallowIcmpInboundEchoRequest(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Allow: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Allow := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AllowDisallowIcmpInboundEchoRequest(Allow) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AllowDisallowIcmpOutboundTimeExceeded(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Allow: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Allow := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AllowDisallowIcmpOutboundTimeExceeded(Allow) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AllowDisallowIcmpOutboundParameterProblem(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Allow: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Allow := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AllowDisallowIcmpOutboundParameterProblem(Allow) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AllowDisallowIcmpOutboundSourceQuench(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Allow: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Allow := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AllowDisallowIcmpOutboundSourceQuench(Allow) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AllowDisallowIcmpInboundRouterRequest(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Allow: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Allow := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AllowDisallowIcmpInboundRouterRequest(Allow) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AllowDisallowIcmpInboundTimestampRequest(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Allow: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Allow := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AllowDisallowIcmpInboundTimestampRequest(Allow) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AllowDisallowIcmpInboundMaskRequest(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Allow: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Allow := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AllowDisallowIcmpInboundMaskRequest(Allow) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AllowDisallowIcmpOutboundPacketTooBig(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Allow: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Allow := StrToBool(PopString);
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AllowDisallowIcmpOutboundPacketTooBig(Allow) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure IsIcmpTypeAllowed(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
IpVersion: NET_FW_IP_VERSION;
|
||||||
|
LocalAddress: String;
|
||||||
|
IcmpType: NET_FW_ICMP_TYPE;
|
||||||
|
Allowed: Boolean;
|
||||||
|
Restricted: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
IpVersion := NET_FW_IP_VERSION(StrToInt(PopString));
|
||||||
|
LocalAddress := PopString;
|
||||||
|
IcmpType := NET_FW_ICMP_TYPE(StrToInt(PopString));
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.IsIcmpTypeAllowed(IpVersion,
|
||||||
|
LocalAddress,
|
||||||
|
IcmpType,
|
||||||
|
Allowed,
|
||||||
|
Restricted) = 0);
|
||||||
|
PushString(BoolToStr(Allowed));
|
||||||
|
PushString(BoolToStr(Restricted));
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AdvAddRule(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Name: String;
|
||||||
|
Description: String;
|
||||||
|
Protocol: NET_FW_IP_PROTOCOL;
|
||||||
|
IcmpTypesAndCodes: String;
|
||||||
|
ApplicationName: String;
|
||||||
|
ServiceName: String;
|
||||||
|
Direction: NET_FW_RULE_DIRECTION;
|
||||||
|
Enabled: Boolean;
|
||||||
|
Group: String;
|
||||||
|
Profile: NET_FW_PROFILE_TYPE2;
|
||||||
|
Action: NET_FW_ACTION;
|
||||||
|
LocalPorts: String;
|
||||||
|
RemotePorts: String;
|
||||||
|
LocalAddress: String;
|
||||||
|
RemoteAddress: String;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Name := PopString;
|
||||||
|
Description := PopString;
|
||||||
|
Protocol := NET_FW_IP_PROTOCOL(StrToInt(PopString));
|
||||||
|
Direction := NET_FW_RULE_DIRECTION(StrToInt(PopString));
|
||||||
|
Enabled := StrToBool(PopString);
|
||||||
|
Profile := NET_FW_PROFILE_TYPE2(StrToInt(PopString));
|
||||||
|
Action := NET_FW_ACTION(StrToInt(PopString));
|
||||||
|
ApplicationName := PopString;
|
||||||
|
ServiceName := PopString;
|
||||||
|
IcmpTypesAndCodes := PopString;
|
||||||
|
Group := PopString;
|
||||||
|
LocalPorts := PopString;
|
||||||
|
RemotePorts := PopString;
|
||||||
|
LocalAddress := PopString;
|
||||||
|
RemoteAddress := PopString;
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AdvAddRule(Name,
|
||||||
|
Description,
|
||||||
|
Protocol,
|
||||||
|
Direction,
|
||||||
|
Enabled,
|
||||||
|
Profile,
|
||||||
|
Action,
|
||||||
|
ApplicationName,
|
||||||
|
ServiceName,
|
||||||
|
IcmpTypesAndCodes,
|
||||||
|
Group,
|
||||||
|
LocalPorts,
|
||||||
|
RemotePorts,
|
||||||
|
LocalAddress,
|
||||||
|
RemoteAddress) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AdvRemoveRule(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Name: String;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Name := PopString;
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AdvRemoveRule(Name) = 0);
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure AdvExistsRule(const hwndParent: HWND; const string_size: integer;
|
||||||
|
const variables: PChar; const stacktop: pointer); cdecl;
|
||||||
|
var
|
||||||
|
Name: String;
|
||||||
|
Exists: Boolean;
|
||||||
|
FirewallResult: String;
|
||||||
|
begin
|
||||||
|
Init(hwndParent, string_size, variables, stacktop);
|
||||||
|
|
||||||
|
Name := PopString;
|
||||||
|
|
||||||
|
FirewallResult := ResultToStr(FirewallControl.AdvExistsRule(Name, Exists) = 0);
|
||||||
|
PushString(BoolToStr(Exists));
|
||||||
|
PushString(FirewallResult);
|
||||||
|
end;
|
||||||
|
|
||||||
|
exports AddPort;
|
||||||
|
exports RemovePort;
|
||||||
|
exports AddApplication;
|
||||||
|
exports RemoveApplication;
|
||||||
|
exports IsPortAdded;
|
||||||
|
exports IsApplicationAdded;
|
||||||
|
exports IsPortEnabled;
|
||||||
|
exports IsApplicationEnabled;
|
||||||
|
exports EnableDisablePort;
|
||||||
|
exports EnableDisableApplication;
|
||||||
|
exports IsFirewallEnabled;
|
||||||
|
exports EnableDisableFirewall;
|
||||||
|
exports AllowDisallowExceptionsNotAllowed;
|
||||||
|
exports AreExceptionsNotAllowed;
|
||||||
|
exports EnableDisableNotifications;
|
||||||
|
exports AreNotificationsEnabled;
|
||||||
|
exports StartStopFirewallService;
|
||||||
|
exports IsFirewallServiceRunning;
|
||||||
|
exports RestoreDefaults;
|
||||||
|
exports AllowDisallowIcmpOutboundDestinationUnreachable;
|
||||||
|
exports AllowDisallowIcmpRedirect;
|
||||||
|
exports AllowDisallowIcmpInboundEchoRequest;
|
||||||
|
exports AllowDisallowIcmpOutboundTimeExceeded;
|
||||||
|
exports AllowDisallowIcmpOutboundParameterProblem;
|
||||||
|
exports AllowDisallowIcmpOutboundSourceQuench;
|
||||||
|
exports AllowDisallowIcmpInboundRouterRequest;
|
||||||
|
exports AllowDisallowIcmpInboundTimestampRequest;
|
||||||
|
exports AllowDisallowIcmpInboundMaskRequest;
|
||||||
|
exports AllowDisallowIcmpOutboundPacketTooBig;
|
||||||
|
exports IsIcmpTypeAllowed;
|
||||||
|
exports AdvAddRule;
|
||||||
|
exports AdvRemoveRule;
|
||||||
|
exports AdvExistsRule;
|
||||||
|
|
||||||
|
end.
|
||||||
Loading…
Reference in a new issue