[es] - Dva prosta pitanja

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

^{23.10.2004. u 17:41 - pre 237 meseci}

Pravim program za jednu igraonicu...

1) Program bi trebao da ima i sopstveni screensaver, znaci kad se recimo, 10 minuta nista ne dogadja, da se upali screensaver... Ja ne znam kako da napravim da program proverava da li je racunar 'mirovao' 10 min... Mogu ovo da resim tako sto cu za OnMouseMove i jos neke evente napisati jedan mali kod, ali mi se cini veoma ruznim nacinom... Postoji li neki univerzalni event koji obuhvata i pritiskanje tastera i pomeranje kursora itd... ?

2) Program zamenjuje default shell... Mora da ima opciju pomocu koje gazda moze da izadje iz programa i radi normalno u windows-u... Kako ovo da napravim ? Kad izvrsim explorer.exe i iskljucim program, ne pojavljuje se taskbar, ikonice itd... vec se otvori file browser (My Computer)

Odgovor na temu

burex
46°05'N 19°39'E

Član broj: 24964
Poruke: 987
*.verat.net.

+679 Profil

Re: Dva prosta pitanja

^{24.10.2004. u 01:05 - pre 237 meseci}

Nasao sam na torry.net jedan (komplikovan) tip kako da se detektuje globalni keypress... http://www.swissdelphicenter.ch/torry/showcode.php?id=1722

A sto se tice pomeranja misa, sto ne bi koristio jedan obican timer?

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Sek:Integer;
  MousePosX,MousePosY:Integer;
  Temp:TPoint;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
{PRVO BI TREBALO PROVERITI DA LI SCREEN SAVER VEC RADI, POGLEDAJ LINK DOLE}
GetCursorPos(Temp);
if (Temp.X = MousePosX) and (Temp.Y = MousePosY) then
begin
Sek := Sek+1;
if Sek>=10 then
begin
Beep; //samo radi testa
{STARTOVANJE SCREEN SAVERA}
//WinExec ... itd...
end;
end
else
Sek := 0;
MousePosX := Temp.X;
MousePosY := Temp.Y;
end;

end.

Taj link za proveru da li je vec aktivan jedan EXE file (u nasem slucaju screensaver):
http://www.swissdelphicenter.ch/torry/showcode.php?id=616

A man is smart. People are stupid.

Odgovor na temu

Milos D
Beograd

Član broj: 5621
Poruke: 280
*.6.eunet.yu.

+1 Profil

Re: Dva prosta pitanja

^{24.10.2004. u 10:34 - pre 237 meseci}

Ako se ne varam, screensaver je obican exe fajl sa .scr ekstenzijom, treba samo da napravis takav program i da Windowsu "kazes" da koristi taj screensaver.

Odgovor na temu

burex
46°05'N 19°39'E

Član broj: 24964
Poruke: 987
*.verat.net.

+679 Profil

Re: Dva prosta pitanja

^{24.10.2004. u 11:53 - pre 237 meseci}

Da li uopste Windows moze da motri stanje pomeranja misa i da startuje screen saver ako nije aktivan explorer.exe?

A man is smart. People are stupid.

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Dva prosta pitanja

^{24.10.2004. u 12:36 - pre 237 meseci}

Ne odgovara mi da win startuje screensaver (mora moj prog da radi to)...

Citat:

Mogu ovo da resim tako sto cu za OnMouseMove i jos neke evente napisati jedan mali kod, ali mi se cini veoma ruznim nacinom... Postoji li neki univerzalni event koji obuhvata i pritiskanje tastera i pomeranje kursora itd... ?

Odgovor na temu

Anarki

Član broj: 31007
Poruke: 116
213.244.197.*

Jabber: rile@jabber.org

Profil

Re: Dva prosta pitanja

^{25.10.2004. u 02:22 - pre 237 meseci}

Mozhe da kontorlishe misha sve dok radi user.dll
Slobodno ugasi explorera

I throw myself into the sea. Release the wave,
Let it wash over me, To face the fear,
I once believed The tears for the dragon
For you and for me

Odgovor na temu