两个小问题。(50分)

E

eastweast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #1

1:如何在程序中使用自定义的动画鼠标光标（用资源文件实现）？
2：如何实现在我的程序运行期间禁止屏幕保护？

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #2

2、
function TurnScreenSaverOn : bool;
var
b : bool;
begin
result := false;
if SystemParametersInfo(SPI_GETSCREENSAVEACTIVE,
0,
@b,
0) <> true then exit;
if not b then exit;
PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
result := true;
end;

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-30

• #3

1,loadcursor

 

P

PFans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #4

1.const
crMyCursor = 100;

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMycursor] := LoadCursor(hInstance, MAKEINTRESOURCE('MyCursor'));
Memo1.Cursor := crMyCursor;
end;

 

C

chur

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #5

2
procedure TForm1.FormCreate(Sender: TObject);
var
Dummy:integer;
Begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@dummy,0);
end;

 

H

hamsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #6

该说地都让他们说了。

 

E

eastweast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-21

• #7

谢谢大家。发分了。