mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-11 11:55:02 -05:00
Simba: TProc, TProcArr, SetTarget, and GetProcesses.
This commit is contained in:
parent
40c93dc127
commit
58faccf182
@ -284,3 +284,13 @@ begin
|
||||
mDebugLn('Exception in GetClipBoard: ' + e.message);
|
||||
end;
|
||||
end;
|
||||
|
||||
function ps_GetProcesses: TProcArr;
|
||||
begin
|
||||
Result := CurrThread.Client.IOManager.GetProcesses;
|
||||
end;
|
||||
|
||||
procedure ps_SetTarget(Proc: TProc);
|
||||
begin
|
||||
CurrThread.Client.IOManager.SetTargetEx(Proc);
|
||||
end;
|
||||
|
@ -64,3 +64,6 @@ AddTypeS('TSP_Property','(SP_WriteTimeStamp,SP_OnTerminate)');
|
||||
AddConstantN('mouse_Right','integer').SetInt(ps_mouse_right); //0
|
||||
AddConstantN('mouse_Left','integer').SetInt(ps_mouse_left);//1
|
||||
AddConstantN('mouse_Middle','integer').SetInt(ps_mouse_middle);//2
|
||||
|
||||
AddTypes('TProc', 'record Title: string; Handle: integer; Pid: integer; Width, Height: integer; end;');
|
||||
AddTypes('TProcArr', 'array of TProc;');
|
||||
|
@ -195,6 +195,8 @@ AddFunction(@ps_messageBox,'function MessageBox(Text, Caption: string; Flags: Lo
|
||||
AddFunction(@ps_MessageDlg,'function MessageDlg(const Caption, Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons) : integer;');
|
||||
AddFunction(@ps_SetClipBoard, 'procedure SetClipBoard(const Data: string);');
|
||||
AddFunction(@ps_GetClipBoard, 'function GetClipBoard: string;');
|
||||
AddFunction(@ps_GetProcesses, 'function GetProcesses: TProcArr;');
|
||||
AddFunction(@ps_SetTarget, 'procedure SetTarget(Proc: TProc);');
|
||||
{$ENDIF}
|
||||
|
||||
{string}
|
||||
|
@ -316,7 +316,9 @@ interface
|
||||
procedure SetKeyMouseTarget(idx: integer);
|
||||
procedure FreeTarget(idx: integer);
|
||||
procedure SetState(val: Boolean);
|
||||
|
||||
|
||||
function GetProcesses: TProcArr; virtual; abstract;
|
||||
procedure SetTargetEx(Proc: TProc); virtual; abstract;
|
||||
protected
|
||||
function SetImageTarget(target: TTarget): integer;
|
||||
function SetKeyMouseTarget(target: TTarget): integer;
|
||||
|
@ -106,6 +106,14 @@ type
|
||||
x1, y1, x2, y2: Integer;
|
||||
end;
|
||||
|
||||
TProc = record
|
||||
Title: string;
|
||||
Handle: integer;
|
||||
Pid: integer;
|
||||
Width, Height: integer;
|
||||
end;
|
||||
TProcArr = array of TProc;
|
||||
|
||||
const
|
||||
TMDTMPointSize = 5*SizeOf(integer)+Sizeof(boolean);
|
||||
type
|
||||
|
@ -96,6 +96,9 @@ interface
|
||||
constructor Create(plugin_dir: string);
|
||||
function SetTarget(target: TNativeWindow): integer; overload;
|
||||
procedure SetDesktop; override;
|
||||
|
||||
function GetProcesses: TProcArr; override;
|
||||
procedure SetTargetEx(Proc: TProc); overload;
|
||||
private
|
||||
procedure NativeInit; override;
|
||||
procedure NativeFree; override;
|
||||
@ -509,5 +512,15 @@ implementation
|
||||
begin
|
||||
SetBothTargets(TWindow.Create(display, screennum, target))
|
||||
end;
|
||||
|
||||
|
||||
function TIOManager.GetProcesses: TProcArr;
|
||||
begin
|
||||
raise Exception.Create('GetProcesses: Not Implemented.');
|
||||
end;
|
||||
|
||||
procedure TIOManager.SetTargetEx(Proc: TProc);
|
||||
begin
|
||||
raise Exception.Create('SetTargetEx: Not Implemented.');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
@ -27,7 +27,7 @@ unit os_windows;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, mufasatypes, windows, graphics, LCLType, bitmaps, IOManager, WinKeyInput;
|
||||
Classes, SysUtils, mufasatypes, windows, graphics, LCLType, LCLIntf, bitmaps, IOManager, WinKeyInput;
|
||||
|
||||
type
|
||||
|
||||
@ -80,7 +80,7 @@ interface
|
||||
keyinput: TKeyInput;
|
||||
procedure ValidateBuffer(w,h:integer);
|
||||
protected
|
||||
function WindowRect(out Rect : TRect) : Boolean;virtual;
|
||||
function WindowRect(out Rect : TRect) : Boolean; virtual;
|
||||
end;
|
||||
|
||||
{ TDesktopWindow }
|
||||
@ -97,6 +97,8 @@ interface
|
||||
constructor Create(plugin_dir: string);
|
||||
function SetTarget(target: TNativeWindow): integer; overload;
|
||||
procedure SetDesktop; override;
|
||||
function GetProcesses: TProcArr; override;
|
||||
procedure SetTargetEx(Proc: TProc); overload;
|
||||
protected
|
||||
DesktopHWND : Hwnd;
|
||||
procedure NativeInit; override;
|
||||
@ -422,9 +424,9 @@ end;
|
||||
inherited Create(plugin_dir);
|
||||
end;
|
||||
|
||||
procedure TIOManager.NativeInit;
|
||||
procedure TIOManager.NativeInit;
|
||||
begin
|
||||
self.DesktopHWND:= GetDesktopWindow;
|
||||
self.DesktopHWND:= GetDesktopWindow;
|
||||
end;
|
||||
|
||||
procedure TIOManager.NativeFree;
|
||||
@ -441,6 +443,41 @@ end;
|
||||
SetBothTargets(TWindow.Create(target));
|
||||
end;
|
||||
|
||||
threadvar
|
||||
ProcArr: TProcArr;
|
||||
|
||||
function EnumProcess(Handle: HWND; Param: LPARAM): WINBOOL; stdcall;
|
||||
var
|
||||
Proc: TProc;
|
||||
I: integer;
|
||||
pPid: DWORD;
|
||||
begin
|
||||
Result := (not ((Handle = 0) or (Handle = null)));
|
||||
if ((Result) and (IsWindowVisible(Handle))) then
|
||||
begin
|
||||
I := Length(ProcArr);
|
||||
SetLength(ProcArr, I + 1);
|
||||
ProcArr[I].Handle := Handle;
|
||||
SetLength(ProcArr[I].Title, 255);
|
||||
SetLength(ProcArr[I].Title, GetWindowText(Handle, PChar(ProcArr[I].Title), Length(ProcArr[I].Title)));
|
||||
GetWindowSize(Handle, ProcArr[I].Width, ProcArr[I].Height);
|
||||
GetWindowThreadProcessId(Handle, pPid);
|
||||
ProcArr[I].Pid := pPid;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TIOManager.GetProcesses: TProcArr;
|
||||
begin
|
||||
SetLength(ProcArr, 0);
|
||||
EnumWindows(@EnumProcess, 0);
|
||||
Result := ProcArr;
|
||||
end;
|
||||
|
||||
procedure TIOManager.SetTargetEx(Proc: TProc);
|
||||
begin
|
||||
SetTarget(Proc.Handle);
|
||||
end;
|
||||
|
||||
{ TDesktopWindow }
|
||||
|
||||
constructor TDesktopWindow.Create(DesktopHandle: HWND);
|
||||
@ -450,9 +487,6 @@ begin
|
||||
self.handle:= DesktopHandle;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
function TDesktopWindow.WindowRect(out Rect : TRect) : Boolean;
|
||||
begin
|
||||
Rect.Left:= GetSystemMetrics(SM_XVIRTUALSCREEN);
|
||||
|
Loading…
Reference in New Issue
Block a user