如何在 DELPHI 3 C/S 版中使用Windows API调用屏幕保护程序？？？急用，多谢！(100分)

XiuXiu(OKI) · 1998-12-14

如何在 DELPHI 3 C/S 版中使用Windows API调用屏幕保护程序？？？急用，多谢！

dwwang · 1998-12-15

Winexec('c:/windows/system/ScreenSaverName.scr',SW_SHOW)

dwwang · 1998-12-15

不好意思，忘了一个参数： Winexec('c:/windows/system/ScreenSaverName.scr /S',SW_SHOW)                                                  ^^

唐晓锋 · 1998-12-15

好象ShellExecute也行

唐晓锋 · 1998-12-15

ShellExecute(           hwmd,      //父窗口句柄       LPCSTR lpszOp;//要执行操作窜的地址可以为open ,print默认为open       LPCSTR lpszFile;//文件名窜的地址             LPCSTR lpszParams;//执行文件串的地址       LPCSTR lpszDir;//默认目录串的地址             int fsShowCmd;//打开时文件是否显示方式                     &nbsp

; 如果指定文件类型没有联系,和该文件类型中没有与操作的联系,返回31.

dwwang · 1998-12-15

当然都可以,还有CreateProcess,ShellExecute,ShellExecuteEx等等, 我不过给了一个最简单的

pegasus · 1998-12-15

Let ne sgare sine points,

You can find the default screen saver from registry: 那么请您访问HKEY_CURRENT_USER/Control Panel/Desktop/SCRNSAVE.EXE所读出的文件名就是当前的屏幕保护, 使用 ShellExecute执行之

CJ · 1998-12-18

好象找不到，至少我的机器不幸！

dsp · 1998-12-21

procedure TForm1.Button1Click(Sender: TObject); begin   perform(WM_SYSCOMMAND,SC_SCREENSAVE ,0); end; All is ok!

Michael_Qu · 1998-12-22

use followings: winexec('Qstart.exe',sw_Show); 其中Qstart.exe在c:/windows下

huizhang · 1998-12-22

To Micheal_Qu: Hi there, wellcome aboard. What is this Qstart.exe thing? Is it a screen saver? Why cann't I find it in my machine.

Larry · 1998-12-28

各位哦，启动屏幕保护程序是用另外的WIN API 根本不是SHELL之类的东东，还有QStart是你装了其他屏幕保护后的附带产品（譬如从www.themeking.com来的) 正确用法 SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSCAVE,0)

dwwang · 1998-12-28

dsp的perform办法显然对调用当前ScreenSaver最好， 但是Execute的办法可以实现调用任何Scr，这一点是优势。

daiji · 1998-12-29

哈哈！    我来对这个问题作一个了断： 请参看以下示例： var  b : bool;  begin     result := false;   if SystemParametersInfo(SPI_GETSCREENSAVEACTIVE,0,@b,0) <> true    then exit;//查询当前系统的ScreenSaver是否可用。   if not b then exit;//不可用则退出   PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);    //或SendMessage(GetDesktopWindow,WM_SYSCOMMAND,SC_SCREENSCAVE,0);    //或perform(WM_SYSCOMMAND,SC_SCREENSAVE ,0);   result := true; end;

DNChen · 1998-12-29

Screen Saver是个其实也是EXE文件所以，象执行其他exe一样执行就可以了。 哦，差点说错了，要运行他是加/s参数，不加参数是打开SSaver配置界面。

Michael_Qu · 1998-12-30

sorry , i made a mistake .that should be winexec('*****.**  /s',sw_Show); 其中*****.** 代屏保文件名

Michael_Qu · 1998-12-30

sorry , i made a mistake .that should be winexec('*****.**  /s',sw_Show); 其中*****.** 代屏保文件名

houyg · 1999-03-04

多人接受答案了。

如何在 DELPHI 3 C/S 版中使用Windows API调用屏幕保护程序？？？急用，多谢！(100分)

XiuXiu(OKI)

Unregistered / Unconfirmed

dwwang

Unregistered / Unconfirmed

dwwang

Unregistered / Unconfirmed

唐晓锋

Unregistered / Unconfirmed

唐晓锋

Unregistered / Unconfirmed

dwwang

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

dsp

Unregistered / Unconfirmed

Michael_Qu

Unregistered / Unconfirmed

huizhang

Unregistered / Unconfirmed

Larry

Unregistered / Unconfirmed

dwwang

Unregistered / Unconfirmed

daiji

Unregistered / Unconfirmed

DNChen

Unregistered / Unconfirmed

Michael_Qu

Unregistered / Unconfirmed

Michael_Qu

Unregistered / Unconfirmed

houyg

Unregistered / Unconfirmed

Similar threads