Reply to thread

Message

<blockquote data-quote="RoyN" data-source="post: 65345" data-attributes="member: 19028">Well, it wouldnt be very difficult if you just resize/move the window to take the area that one has defined....It can be made more complex (say if you want to remove window-titles, menu bar, etc...)I am amember at mp3car.com, and there we discuss in-car pcs... there are some appplications which do exactly this, embed applications in themselves (basically, the same thing I suggest here)... from what I gather, they are either parenting the original window (which requires you find the window by giving either/or the window name or class name), or they merely &quot;hide&quot; the areas we dont want to see...There is some delphi code that is really simple that embeds the slignplayer I mentioned above...I'll paste it here so you can see, it isnt really very complicated, and I guess I'll have to make something like this if no one else does, but I just dont have any programming tools on my machine at the mo... gotta go get the cds in the office <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":)" title="Smile&nbsp; &nbsp; :)" loading="lazy" data-shortname=":)" />Anyways, the code is pretty straight forwafrd, as it uses mainly windows methods...(ps, not written by me)[code]{ Application Name : SlingView&nbsp; Version : 1.2&nbsp; Author : Andrew Butkus&nbsp; Website : [url]www.lommage.co.uk/slingbox[/url]&nbsp; ==============================================================&nbsp; Bugfix History&nbsp; --------------&nbsp; &nbsp; &nbsp; 3/1/2006&nbsp; &nbsp; &nbsp; &nbsp; - Recoded version 1.2&nbsp; ==============================================================}unit MainForm1;interfaceuses&nbsp; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,&nbsp; Dialogs, Buttons, ExtCtrls;type&nbsp; TForm1 = class(TForm)&nbsp; &nbsp; procedure FormShow(Sender: TObject);&nbsp; &nbsp; procedure FormResize(Sender: TObject);&nbsp; &nbsp; procedure FormClose(Sender: TObject; var Action: TCloseAction);&nbsp; private&nbsp; &nbsp; { Private declarations }&nbsp; public&nbsp; &nbsp; { Public declarations }&nbsp; &nbsp; procedure DoResize;&nbsp; end;&nbsp; procedure InitialiseSlingWindow;var&nbsp; Form1: TForm1;&nbsp; &nbsp; Window: Cardinal = 0; // Slingplayer Window (make sure starts with 0)&nbsp; WindowRect, DefaultWindowRect: TRect; // Settings for windows position&nbsp; UserResizing: Boolean = False; //Boolean check to see if application is&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; //resizing, or if its the user (this avoids&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; //the code to be re-called everytime the&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; //application resizes)implementation{$R *.dfm}//-----------------------------{ Find Window to modify }function EnumViewWindowsProc(WHandle: HWND; lParam: LPARAM): BOOL; export; stdcall;var&nbsp; WindowName : array[0..MAX_PATH] of char;begin&nbsp; Result := True;&nbsp; GetWindowText(WHandle, WindowName, MAX_PATH);&nbsp; If (String(WindowName) = 'SlingPlayer') then&nbsp; begin&nbsp; &nbsp; //Store original size of window in a temp rect&nbsp; &nbsp; GetWindowRect(WHandle, WindowRect);&nbsp; &nbsp; //Set the mask to hide the window - for user testing of main window&nbsp; &nbsp; SetWindowRgn(WHandle, CreateRectRgn(0, 0, 0, 0), True);&nbsp; &nbsp; If MessageDlg('Did the main Sling Player Main Video window Disappear?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then&nbsp; &nbsp; begin&nbsp; &nbsp; &nbsp; Window := WHandle; //If it is slingplayer window then assign to a global variable&nbsp; &nbsp; &nbsp; Result := False; //Discontinuing checking for window&nbsp; &nbsp; end&nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; //If window doesnt hide, then set the mask back to the original dimensions&nbsp; &nbsp; &nbsp; SetWindowRgn(WHandle, CreateRectRgn(0, 0, WindowRect.Right, WindowRect.Bottom), True);&nbsp; end;end;{ This is called when application starts }procedure InitialiseSlingWindow;begin&nbsp; { Start of by getting the slingplayer window }&nbsp; EnumWindows(@EnumViewWindowsProc, 0);&nbsp; { If doesnt exist then exit, as its not running }&nbsp; If Window = 0 then&nbsp; begin&nbsp; &nbsp; Showmessage('SlingPlayer not running, Exiting ...');&nbsp; &nbsp; Application.Terminate;&nbsp; end;&nbsp; { Store current Slingplayer window position }&nbsp; DefaultWindowRect.Top := WindowRect.Top;&nbsp; DefaultWindowRect.Left := WindowRect.Left;&nbsp; DefaultWindowRect.Bottom := WindowRect.Bottom;&nbsp; DefaultWindowRect.Right := WindowRect.Right;end;//-----------------------------{ Do the resize procedure (for resizing form and slingplayer window) }procedure TForm1.DoResize;begin&nbsp; UserResizing := False; //Switch into application resizing mode&nbsp; Form1.Left := WindowRect.Left;&nbsp; Form1.Top := WindowRect.Top;&nbsp; Form1.Width := WindowRect.Right - 40;&nbsp; Form1.Height := WindowRect.Bottom - 173;&nbsp; UserResizing := True; //Switch back to user resizing mode&nbsp; MoveWindow(Window, 0 - 24, 0 - 62, WindowRect.Right, WindowRect.Bottom, True);&nbsp; SetWindowRgn(Window, CreateRectRgn(0, 0, WindowRect.Right - 24, WindowRect.Bottom - 140), True);end;{ Make our application the parent window of Slingplayer }procedure TForm1.FormShow(Sender: TObject);begin&nbsp; //Set constraints of the window (this is more due to slingplayer not being able to maxed sized)&nbsp; Form1.Constraints.MaxHeight := Screen.Height - 165;&nbsp; Form1.Constraints.MaxWidth := Screen.Width - 48;&nbsp; Form1.Constraints.MinHeight := 235;&nbsp; Form1.Constraints.MinWidth := 320;&nbsp; Windows.SetParent(Window, Form1.Handle); //Make sling player a part of our form&nbsp; DoResize; //and now resize slingplayer to the size of our formend;{ When form is resized make sure the slingplayer window is updated }procedure TForm1.FormResize(Sender: TObject);begin&nbsp; If UserResizing then //here we check to see if the user is resizing or if the application is&nbsp; begin&nbsp; &nbsp; WindowRect.Left := Form1.Left;&nbsp; &nbsp; WindowRect.Top := Form1.Top;&nbsp; &nbsp; WindowRect.Right := Form1.Width + 40;&nbsp; &nbsp; WindowRect.Bottom := Form1.Height + 173;&nbsp; &nbsp; DoResize;&nbsp; end;end;{ Put Slingplayer back the way it was before } procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin&nbsp; //Move the window back to original position&nbsp; MoveWindow(Window, DefaultWindowRect.Left, DefaultWindowRect.Top, DefaultWindowRect.Right, DefaultWindowRect.Bottom, True);&nbsp; SetWindowRgn(Window, CreateRectRgn(0, 0, Screen.Width, Screen.Height), True); //Reset the mask&nbsp; Windows.SetParent(Window, 0); //Make the slingplayer parent back to the desktopend;end.[/code]</blockquote>

[QUOTE="RoyN, post: 65345, member: 19028"] Well, it wouldnt be very difficult if you just resize/move the window to take the area that one has defined.... It can be made more complex (say if you want to remove window-titles, menu bar, etc...) I am amember at mp3car.com, and there we discuss in-car pcs... there are some appplications which do exactly this, embed applications in themselves (basically, the same thing I suggest here)... from what I gather, they are either parenting the original window (which requires you find the window by giving either/or the window name or class name), or they merely "hide" the areas we dont want to see... There is some delphi code that is really simple that embeds the slignplayer I mentioned above...I'll paste it here so you can see, it isnt really very complicated, and I guess I'll have to make something like this if no one else does, but I just dont have any programming tools on my machine at the mo... gotta go get the cds in the office :) Anyways, the code is pretty straight forwafrd, as it uses mainly windows methods... (ps, not written by me) [code]{ Application Name : SlingView Version : 1.2 Author : Andrew Butkus Website : [url]www.lommage.co.uk/slingbox[/url] ============================================================== Bugfix History -------------- 3/1/2006 - Recoded version 1.2 ============================================================== } unit MainForm1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls; type TForm1 = class(TForm) procedure FormShow(Sender: TObject); procedure FormResize(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } procedure DoResize; end; procedure InitialiseSlingWindow; var Form1: TForm1; Window: Cardinal = 0; // Slingplayer Window (make sure starts with 0) WindowRect, DefaultWindowRect: TRect; // Settings for windows position UserResizing: Boolean = False; //Boolean check to see if application is //resizing, or if its the user (this avoids //the code to be re-called everytime the //application resizes) implementation {$R *.dfm} //----------------------------- { Find Window to modify } function EnumViewWindowsProc(WHandle: HWND; lParam: LPARAM): BOOL; export; stdcall; var WindowName : array[0..MAX_PATH] of char; begin Result := True; GetWindowText(WHandle, WindowName, MAX_PATH); If (String(WindowName) = 'SlingPlayer') then begin //Store original size of window in a temp rect GetWindowRect(WHandle, WindowRect); //Set the mask to hide the window - for user testing of main window SetWindowRgn(WHandle, CreateRectRgn(0, 0, 0, 0), True); If MessageDlg('Did the main Sling Player Main Video window Disappear?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Window := WHandle; //If it is slingplayer window then assign to a global variable Result := False; //Discontinuing checking for window end else //If window doesnt hide, then set the mask back to the original dimensions SetWindowRgn(WHandle, CreateRectRgn(0, 0, WindowRect.Right, WindowRect.Bottom), True); end; end; { This is called when application starts } procedure InitialiseSlingWindow; begin { Start of by getting the slingplayer window } EnumWindows(@EnumViewWindowsProc, 0); { If doesnt exist then exit, as its not running } If Window = 0 then begin Showmessage('SlingPlayer not running, Exiting ...'); Application.Terminate; end; { Store current Slingplayer window position } DefaultWindowRect.Top := WindowRect.Top; DefaultWindowRect.Left := WindowRect.Left; DefaultWindowRect.Bottom := WindowRect.Bottom; DefaultWindowRect.Right := WindowRect.Right; end; //----------------------------- { Do the resize procedure (for resizing form and slingplayer window) } procedure TForm1.DoResize; begin UserResizing := False; //Switch into application resizing mode Form1.Left := WindowRect.Left; Form1.Top := WindowRect.Top; Form1.Width := WindowRect.Right - 40; Form1.Height := WindowRect.Bottom - 173; UserResizing := True; //Switch back to user resizing mode MoveWindow(Window, 0 - 24, 0 - 62, WindowRect.Right, WindowRect.Bottom, True); SetWindowRgn(Window, CreateRectRgn(0, 0, WindowRect.Right - 24, WindowRect.Bottom - 140), True); end; { Make our application the parent window of Slingplayer } procedure TForm1.FormShow(Sender: TObject); begin //Set constraints of the window (this is more due to slingplayer not being able to maxed sized) Form1.Constraints.MaxHeight := Screen.Height - 165; Form1.Constraints.MaxWidth := Screen.Width - 48; Form1.Constraints.MinHeight := 235; Form1.Constraints.MinWidth := 320; Windows.SetParent(Window, Form1.Handle); //Make sling player a part of our form DoResize; //and now resize slingplayer to the size of our form end; { When form is resized make sure the slingplayer window is updated } procedure TForm1.FormResize(Sender: TObject); begin If UserResizing then //here we check to see if the user is resizing or if the application is begin WindowRect.Left := Form1.Left; WindowRect.Top := Form1.Top; WindowRect.Right := Form1.Width + 40; WindowRect.Bottom := Form1.Height + 173; DoResize; end; end; { Put Slingplayer back the way it was before } procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin //Move the window back to original position MoveWindow(Window, DefaultWindowRect.Left, DefaultWindowRect.Top, DefaultWindowRect.Right, DefaultWindowRect.Bottom, True); SetWindowRgn(Window, CreateRectRgn(0, 0, Screen.Width, Screen.Height), True); //Reset the mask Windows.SetParent(Window, 0); //Make the slingplayer parent back to the desktop end; end. [/code] [/QUOTE]

Verification