146 lines
3.9 KiB
Plaintext
146 lines
3.9 KiB
Plaintext
unit DPrintApproveReqA;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
|
|
|
|
type
|
|
TDlgPrintApproveReqA = class(TForm)
|
|
Label1: TLabel;
|
|
btnApprove: TButton;
|
|
btnCancel: TButton;
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
procedure btnCancelClick(Sender: TObject);
|
|
procedure btnApproveClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
sApproveUrl_: String;
|
|
public
|
|
{ Public declarations }
|
|
Constructor Create(aOwner: TComponent; nType: Integer; sApproveUrl: String);
|
|
procedure CreateParams(var Params: TCreateParams); override; // 작업표시줄에 표시
|
|
|
|
procedure process_WM_SYSCOMMAND(var msg: TWMSysCommand); Message WM_SYSCOMMAND;
|
|
end;
|
|
|
|
var
|
|
DlgPrintApproveReqA: TDlgPrintApproveReqA;
|
|
|
|
implementation
|
|
|
|
uses
|
|
ManagerService, Tocsg.Shell, GlobalDefine, DefineHelper, Tocsg.Path, superobject,
|
|
Tocsg.Process;
|
|
|
|
resourcestring
|
|
RS_MsgConfirm = '확인하시고 승인 바랍니다';
|
|
RS_UsbExcept = 'USB 매체 예외';
|
|
RS_MsgUsbExcept = 'USB 매체 예외가 요청 되었습니다.';
|
|
RS_UrlExcept = '브라우저 접근 예외';
|
|
RS_MsgUrlExcept = '브라우저 접근 예외가 요청 되었습니다.';
|
|
RS_MtpExcept = 'MTP 매체 예외';
|
|
RS_MtpUrlExcept = 'MTP 매체 예외 요청 되었습니다.';
|
|
RS_BtExcept = 'Bluetooth 매체 예외';
|
|
RS_BtUrlExcept = 'Bluetooth 매체 예외 요청 되었습니다.';
|
|
RS_CdExcept = 'CD/DVD 매체 예외';
|
|
RS_CdUrlExcept = 'CD/DVD 매체 예외 요청 되었습니다.';
|
|
|
|
{$R *.dfm}
|
|
|
|
Constructor TDlgPrintApproveReqA.Create(aOwner: TComponent; nType: Integer; sApproveUrl: String);
|
|
begin
|
|
Inherited Create(aOwner);
|
|
sApproveUrl_ := sApproveUrl;
|
|
|
|
case nType of
|
|
2 :
|
|
begin
|
|
Caption := RS_UsbExcept;
|
|
Label1.Caption := RS_MsgUsbExcept + #13#10#13#10 + RS_MsgConfirm;
|
|
end;
|
|
3 :
|
|
begin
|
|
Caption := RS_UrlExcept;
|
|
Label1.Caption := RS_MsgUrlExcept + #13#10#13#10 + RS_MsgConfirm;
|
|
end;
|
|
4 : // DRM 복호화
|
|
begin
|
|
Caption := RS_UrlExcept;
|
|
Label1.Caption := RS_MsgUrlExcept + #13#10#13#10 + RS_MsgConfirm;
|
|
end;
|
|
5 : // 파일 반출
|
|
begin
|
|
Caption := RS_UrlExcept;
|
|
Label1.Caption := RS_MsgUrlExcept + #13#10#13#10 + RS_MsgConfirm;
|
|
end;
|
|
6 : // MTP
|
|
begin
|
|
Caption := RS_MtpExcept;
|
|
Label1.Caption := RS_MtpUrlExcept + #13#10#13#10 + RS_MsgConfirm;
|
|
end;
|
|
7 : // Bluetooth
|
|
begin
|
|
Caption := RS_BtExcept;
|
|
Label1.Caption := RS_BtUrlExcept + #13#10#13#10 + RS_MsgConfirm;
|
|
end;
|
|
8 : // CD/DVD
|
|
begin
|
|
Caption := RS_CdExcept;
|
|
Label1.Caption := RS_CdUrlExcept + #13#10#13#10 + RS_MsgConfirm;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TDlgPrintApproveReqA.CreateParams(var Params: TCreateParams);
|
|
begin
|
|
Inherited CreateParams(Params);
|
|
Params.ExStyle := WS_EX_APPWINDOW;
|
|
end;
|
|
|
|
procedure TDlgPrintApproveReqA.FormClose(Sender: TObject;
|
|
var Action: TCloseAction);
|
|
begin
|
|
Action := TCloseAction.caFree;
|
|
end;
|
|
|
|
procedure TDlgPrintApproveReqA.btnApproveClick(Sender: TObject);
|
|
begin
|
|
Hide;
|
|
// ExecutePath(gMgSvc.DestIPort + sApproveUrl_);
|
|
|
|
var sHlpExe: String := GetRunExePathDir + DIR_CONF + EXE_HLP;
|
|
if FileExists(sHlpExe) then
|
|
begin
|
|
var O: ISuperObject := SO;
|
|
O.I['RcvWnd'] := Handle;
|
|
O.I['Cmd'] := HPCMD_EXECUTE_FILE;
|
|
O.S['Path'] := gMgSvc.DestIPort + sApproveUrl_;
|
|
SaveJsonObjToFile(O, GetRunExePathDir + DIR_CONF + DAT_PARAM);
|
|
{$IFDEF DEBUG}
|
|
ExecutePath(sHlpExe);
|
|
{$ELSE}
|
|
ExecuteAppAsUser('explorer.exe', sHlpExe, '', SW_SHOWNORMAL);
|
|
{$ENDIF}
|
|
end else
|
|
ExecutePath(gMgSvc.DestIPort + sApproveUrl_);
|
|
end;
|
|
|
|
procedure TDlgPrintApproveReqA.btnCancelClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TDlgPrintApproveReqA.process_WM_SYSCOMMAND(var msg: TWMSysCommand);
|
|
begin
|
|
if msg.Msg = SC_CLOSE then
|
|
begin
|
|
btnCancel.Click;
|
|
exit;
|
|
end;
|
|
Inherited;
|
|
end;
|
|
|
|
end.
|