84 lines
2.1 KiB
Plaintext
84 lines
2.1 KiB
Plaintext
unit SecureApp;
|
|
|
|
interface
|
|
|
|
uses
|
|
Tocsg.Obj, System.SysUtils, System.Classes, System.Generics.Collections;
|
|
|
|
type
|
|
TSecureApp = class(TTgObject)
|
|
private
|
|
sName_,
|
|
sType_,
|
|
sStatus_,
|
|
sPath_,
|
|
sTimeStamp_: String;
|
|
bIsState_: Boolean;
|
|
public
|
|
Constructor Create; overload;
|
|
Constructor Create(sName, sType, sStatus, sPath, sTimestamp: String; bState: Boolean); overload;
|
|
Constructor Create(aApp: TSecureApp); overload;
|
|
procedure SetValue(sName, sType, sStatus, sPath, sTimestamp: String; bState: Boolean);
|
|
|
|
property Name: String read sName_;
|
|
property AppType: String read sType_;
|
|
property Status: String read sStatus_;
|
|
property Path: String read sPath_;
|
|
property Timestamp: String read sTimeStamp_;
|
|
property IsState: Boolean read bIsState_;
|
|
end;
|
|
TSecureAppList = class(TList<TSecureApp>)
|
|
protected
|
|
procedure Notify(const Item: TSecureApp; Action: TCollectionNotification); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TSecureApp }
|
|
|
|
Constructor TSecureApp.Create;
|
|
begin
|
|
Inherited Create;
|
|
sName_ := '';
|
|
sType_ := '';
|
|
sStatus_ := '';
|
|
sPath_ := '';
|
|
sTimeStamp_ := '';
|
|
bIsState_ := false;
|
|
end;
|
|
|
|
Constructor TSecureApp.Create(sName, sType, sStatus, sPath, sTimestamp: String; bState: Boolean);
|
|
begin
|
|
Create;
|
|
SetValue(sName, sType, sStatus, sPath, sTimestamp, bState);
|
|
end;
|
|
|
|
Constructor TSecureApp.Create(aApp: TSecureApp);
|
|
begin
|
|
Create;
|
|
SetValue(aApp.Name, aApp.AppType, aApp.Status, aApp.Path, aApp.Timestamp, aApp.IsState);
|
|
end;
|
|
|
|
procedure TSecureApp.SetValue(sName, sType, sStatus, sPath, sTimestamp: String; bState: Boolean);
|
|
begin
|
|
// 번역리소스에 추가 하면 안됨. 변환 안되서 백신, 방화벽 정보가 두개로 보임 22_0811 16:45:31 kku
|
|
sName_ := Trim(StringReplace(sName, '바이러스 백신', '', [rfReplaceAll]));
|
|
sName_ := Trim(StringReplace(sName_, '방화벽', 'Firewall', [rfReplaceAll]));
|
|
sType_ := sType;
|
|
sStatus_ := sStatus;
|
|
sPath_ := sPath;
|
|
sTimeStamp_ := sTimestamp;
|
|
bIsState_ := bState;
|
|
end;
|
|
|
|
{ TSecureAppList }
|
|
|
|
procedure TSecureAppList.Notify(const Item: TSecureApp; Action: TCollectionNotification);
|
|
begin
|
|
if Action = cnRemoved then
|
|
Item.Free;
|
|
end;
|
|
|
|
end.
|
|
|