100 lines
2.6 KiB
Plaintext
100 lines
2.6 KiB
Plaintext
{*******************************************************}
|
|
{ }
|
|
{ DefineHelper }
|
|
{ }
|
|
{ Copyright (C) 2022 kku }
|
|
{ }
|
|
{*******************************************************}
|
|
|
|
unit DefineHelper;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Messages, Winapi.Windows;
|
|
|
|
const
|
|
EXE_HLP = 'eCrmHeHelper.exe';
|
|
DAT_PARAM = '#hp.dat';
|
|
|
|
HPCMD_SELECT_FILE = 1;
|
|
HPCMD_SELECT_FOLDER = 2;
|
|
HPCMD_EXECUTE_FILE = 3;
|
|
HPCMD_OPEN_SELECT = 4;
|
|
HPCMD_CHECK_URL = 5;
|
|
HPCMD_PRINT_DOCNAME = 6;
|
|
HPCMD_CHECK_CONTENT = 7;
|
|
HPCMD_INSTALL_OUTLOOK_ADDIN = 8;
|
|
HPCMD_UNINSTALL_OUTLOOK_ADDIN = 32;
|
|
HPCMD_LICENSE_AGREE = 9;
|
|
HPCMD_LICENSE_DISCONN = 10;
|
|
HPCMD_SEND_QnA_MESSAGE = 11;
|
|
HPCMD_SEND_AFTER_REPORT = 12;
|
|
HPCMD_PERSONALINFO_AGREE = 13;
|
|
HPCMD_REQ_CLIPBOARD_DATA = 14;
|
|
HPCMD_INPUT_EXCEPT_REASON = 15;
|
|
HPCMD_CHECK_PRINTWATER_EXCEPT = 16;
|
|
HPCMD_REQ_DEVICE_EXCEPT = 17;
|
|
HPCMD_REQ_NETDIR_SCAN = 18;
|
|
// HPCMD_EXE_DECRYPT_DRM = 19;
|
|
HPCMD_COPY_FILE = 20;
|
|
HPCMD_REQ_NETDRVADDR = 21;
|
|
HPCMD_OPEN_ENCRYPT = 22;
|
|
HPCMD_OPEN_DECRYPT = 23;
|
|
HPCMD_REQ_DECRYPT = 24;
|
|
HPCMD_APPROVAL_FILE = 25;
|
|
HPCMD_HOOK_NOTI = 26;
|
|
HPCMD_EXISTS_FILE = 27;
|
|
HPCMD_REQ_FILEICON = 28;
|
|
HPCMD_CTRL_PRINTER = 29;
|
|
HPCMD_PRINT_ENDDOC_INFO = 30;
|
|
HPCMD_REG_IGNORE_DETECT_PATH = 31;
|
|
HPCMD_CHECK_PRINTWATER_EXCEPT_EX = 33;
|
|
HPCMD_FILE_OPERATION_NOTI = 34;
|
|
HPCMD_REQ_ENCRYPT = 35;
|
|
HPCMD_START_SCREEN_RECORD = 36;
|
|
HPCMD_STOP_SCREEN_RECORD = 37;
|
|
HPCDM_PRINT_INFO_LIST = 38;
|
|
HPCMD_CHECK_SIZE = 39;
|
|
HPCMD_BLOCK = 40;
|
|
|
|
HPCMD_REP_NETDIR_PROGRESS = 201;
|
|
HPCMD_REP_NETDIR_SCANPATH = 202;
|
|
|
|
HLP_ROLE_WINDOWS_UPDATE_SCAN = 101;
|
|
|
|
WM_INIT_HLEPER = WM_USER + 8546;
|
|
WM_REQUEST_HLEPER = WM_USER + 8547;
|
|
WM_RESPONSE_HLEPER = WM_USER + 8548;
|
|
|
|
function SendCopyData(hRcv: HWND; nCmd: Integer; sData: String): LRESULT;
|
|
|
|
implementation
|
|
|
|
function SendCopyData(hRcv: HWND; nCmd: Integer; sData: String): LRESULT;
|
|
var
|
|
CopyData: TCopyDataStruct;
|
|
dwResult: DWORD;
|
|
begin
|
|
try
|
|
if hRcv = 0 then
|
|
begin
|
|
Result := 0;
|
|
exit;
|
|
end;
|
|
|
|
ZeroMemory(@CopyData, SizeOf(CopyData));
|
|
CopyData.dwData := nCmd;
|
|
CopyData.cbData := (Length(sData) + 1) * 2;
|
|
CopyData.lpData := PChar(sData);
|
|
dwResult := 0;
|
|
Result := SendMessage(hRcv, WM_COPYDATA, 0, NativeInt(@CopyData));
|
|
// if SendMessageTimeout(hRcv, WM_COPYDATA, 0, NativeInt(@CopyData), SMTO_NORMAL, 3000, @dwResult) <> 0 then
|
|
// Result := dwResult;
|
|
except
|
|
// ...
|
|
end;
|
|
end;
|
|
|
|
end.
|