Entwickler-Ecke

Multimedia / Grafik - Screensaver im Panel laufen lassen


MrKnogge - Di 03.06.03 19:29
Titel: Screensaver im Panel laufen lassen
Hi

ist es möglich einen Screensaver in einem Panel ablaufen zu lassen ?


maximus - Mi 04.06.03 12:04

KA.

Aber screen-saver sind eigentlich nur exe-dateien, die in 'scr' umbenannt wurden, also könntest du die frage stellen, ob man eine exe in einem panel laufen lassen kann :wink:


ShadowThief - Mi 04.06.03 12:07

man kann eine anwendung in einer eigenen anwendung laufen lassen.
nur den code hab ich net mehr denk ich.


ShadowThief - Mi 04.06.03 12:10

doch hier isses, das is lustig :D



Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
begin
  WinExec( 'notepad.exe', sw_hide );
  Sleep( 500 );
  wnd := FindWindow( 'notepad'nil );
  Windows.SetParent( wnd, Panel1.Handle );
end;



shadow.


Tweafis - Mi 04.06.03 12:33

Hi,
ShadowThief hat folgendes geschrieben:
doch hier isses, das is lustig :D



Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
begin
  WinExec( 'notepad.exe', sw_hide );
  Sleep( 500 );
  wnd := FindWindow( 'notepad'nil );
  Windows.SetParent( wnd, Panel1.Handle );
end;



shadow.



Der Code geht bei mir net :( (WinXP)
fis


ShadowThief - Mi 04.06.03 12:52

huuuuup, sorry :?
hab noch was vergessen (das muss hinter den ganzen sums):


Delphi-Quelltext
1:
  SetWindowPos(wnd, 000, Panel1.clientwidth, Panel1.clientheight, SWP_NOZORDER or SWP_SHOWWINDOW );                    


shadow.


MrKnogge - Mi 04.06.03 14:17

ShadowThief hat folgendes geschrieben:
huuuuup, sorry :?
hab noch was vergessen (das muss hinter den ganzen sums):


Delphi-Quelltext
1:
  SetWindowPos(wnd, 000, Panel1.clientwidth, Panel1.clientheight, SWP_NOZORDER or SWP_SHOWWINDOW );                    


shadow.


werd ich gleich mal ausprobieren, wenn man statt

Delphi-Quelltext
1:
2:
WinExec( 'notepad.exe', sw_hide );
WinExec( 'notepad.exe', sw_normal);

schreibt, sieht man schon was :-)


MrKnogge - Mi 04.06.03 15:51

Hi

Mitm Notepad funzt es soweit, aber beim
Screensaver hab ich nun das Problem, dass
statt der Screesaver das ScreensaverMenü kommt.


Tweafis - Mi 04.06.03 16:43

Hi, http://www.mephzara.com/techzone/screensaver/screensaver_g.php#Parameterauswertung

Also mit dem Parameter s starten
Fis


MrKnogge - Mi 04.06.03 19:49

Mit s als Parameter funktioniert es, bis nach der Pause...