| Autor |
Beitrag |
MrKnogge
 
Beiträge: 76
Win XP, Win 7
Delphi 7 Prof, Delphi 2005 PE, C# (VS 2008)
|
Verfasst: Di 03.06.03 19:29
Hi
ist es möglich einen Screensaver in einem Panel ablaufen zu lassen ?
_________________ MfG MrKnogge
|
|
maximus
Beiträge: 896
Win XP, Suse 8.1
Delphi 4/7/8 alles prof
|
Verfasst: 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  _________________ mfg.
mâximôv
|
|
ShadowThief
Beiträge: 278
|
Verfasst: 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
Beiträge: 278
|
Verfasst: Mi 04.06.03 12:10
doch hier isses, das is lustig 
  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
Beiträge: 647
WinXP + fbsd
Delphi 5 Prof
|
Verfasst: Mi 04.06.03 12:33
Hi,
| ShadowThief hat folgendes geschrieben: | doch hier isses, das is lustig
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 _________________ .: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.
|
|
ShadowThief
Beiträge: 278
|
Verfasst: Mi 04.06.03 12:52
huuuuup, sorry 
hab noch was vergessen (das muss hinter den ganzen sums):
Delphi-Quelltext
1:
| SetWindowPos(wnd, 0, 0, 0, Panel1.clientwidth, Panel1.clientheight, SWP_NOZORDER or SWP_SHOWWINDOW ); |
shadow.
|
|
MrKnogge 
Beiträge: 76
Win XP, Win 7
Delphi 7 Prof, Delphi 2005 PE, C# (VS 2008)
|
Verfasst: 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, 0, 0, 0, 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  _________________ MfG MrKnogge
|
|
MrKnogge
Beiträge: 76
Win XP, Win 7
Delphi 7 Prof, Delphi 2005 PE, C# (VS 2008)
|
Verfasst: 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.
_________________ MfG MrKnogge
|
|
Tweafis
Beiträge: 647
WinXP + fbsd
Delphi 5 Prof
|
Verfasst: Mi 04.06.03 16:43
_________________ .: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.
|
|
MrKnogge
Beiträge: 76
Win XP, Win 7
Delphi 7 Prof, Delphi 2005 PE, C# (VS 2008)
|
Verfasst: Mi 04.06.03 19:49
Mit s als Parameter funktioniert es, bis nach der Pause...
_________________ MfG MrKnogge
|
|
