[es] - Dva prosta pitanja

reiser
Vranje

Član broj: 7895
Poruke: 1885
*.neobee.net.

Profil

^{23.10.2004. u 17:41}

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)

^{23.10.2004. u 17:41}

burex
Freelancer, Local community network administrator
46°05'N 19°39'E

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

Profil

Re: Dva prosta pitanja

^{24.10.2004. u 01:05}

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.
My blog

^{24.10.2004. u 01:05}

Milos D
Beograd

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

Profil

Re: Dva prosta pitanja

^{24.10.2004. u 10:34}

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.

^{24.10.2004. u 10:34}

burex
Freelancer, Local community network administrator
46°05'N 19°39'E

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

Profil

Re: Dva prosta pitanja

^{24.10.2004. u 11:53}

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.
My blog

^{24.10.2004. u 11:53}

reiser
Vranje

Član broj: 7895
Poruke: 1885
*.neobee.net.

Profil

Re: Dva prosta pitanja

^{24.10.2004. u 12:36}

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... ?

^{24.10.2004. u 12:36}

Anarki

Član broj: 31007
Poruke: 115
213.244.197.*

Jabber: rile@jabber.org

Profil

Re: Dva prosta pitanja

^{25.10.2004. u 02:22}

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

^{25.10.2004. u 02:22}