Как сделать Multi Screen Emulator?

Code:

function EnumWindowsProc(hWnd: HWND; lParam: LPARAM): Bool;

// The EnumWindows function is of type:

BOOL EnumWindows(

WNDENUMPROC lpEnumFunc, // pointer to callback function

    LPARAM lParam  // application-defined value

   );

{

I will call EnumWindows(@EnumWindowsProc, 0);

The "EnumWindows" function loop over all windows (visible or invisible):

for each window there is a call to the callback function

"EnumWindowsProc" wich must be implemented.

The first param "hWnd" is the handle of the current window.

A possible implementation of the "EnumWindowsProc" function may be the inserting

of every handle in a list.

According to our target we must insert in a list the handle of

the following windows:

1)Visible windows //(IsWindowVisible(hwnd) = True)

2)Not my application window

//var processed: DWORD;

//GetWindowThreadProcessID( hwnd, @processID );

//processID <> GetCurrentProcessID

3)Not the taskbar window //hWnd <> FindWindow('Shell_TrayWnd', Nil)

4)Not the desktop window //hWnd <> FindWindow('Progman', Nil)

}

// This is the code:

unit ProcessView;

interface

uses

Windows, Dialogs, SysUtils, Classes, ShellAPI, TLHelp32, Forms;

var

HandleList: TStringList;

function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool; stdcall;

procedure GetProcessList;

implementation

procedure GetProcessList;

var

i: integer;

begin

HandleList.Clear;

EnumWindows(@EnumWindowsProc, 0);

end;

function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool;

var

processID: DWORD;

begin

GetWindowThreadProcessID(hwnd, @processID);

if processID <> GetCurrentProcessID then

   if (hWnd <> FindWindow('Shell_TrayWnd', nil)) and

     (hWnd <> FindWindow('Progman', nil)) then

     if IsWindowVisible(hwnd) then

     begin

       HandleList.Add(IntToStr(HWnd));

       Result := True;

     end;

end;

initialization

HandleList := TStringList.Create;

finalization

HandleList.Free;

end.