Bestemt dag og sys tray

1. Man bruger f.eks. AT commando'en i w2k

2. Søg på exp. det er besvaret 1000 gange

1.) Der er ikke rigtigt andet at gøre end at lade dit program starte med windows og checke tid/dato og lukke igen hvis det ikke er rigtigt. Du kunne evt lave et lille ekstra program som checkede dette.

2.) Der findes 1000 af tray icons components. Prøv selv på torry at søge efter "tray". Der er nok at vælge imellem

1. Det skal være sådan at brugeren kan vælge hvornår det skal være.

2. Det er ikke noget problem at få vist et ikon, det er mere det med at når den minimeres så skal den forsvinde helt, ned i sys trayen. Ikke bare ligge som alle andre når man minimere dem

Til at execute dit prg. kører du AT <Dit prg> med en ShellExecute();

---------------------

I DPR filen :

ShowMainForm := FALSE;

--------------------------------

Når du minimere :

MainForm.Hide;

1) Smid to TDateTimePicker's (ligger under Win32) og en Timer ind på din form. Sæt den ene DateTimePicker's Kind-property til dtkTime og giv den navnet dtpTid og den anden giver du navnet dtpDato. Så kalder du følgende kode fra din Timer's OnTimer:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Now >= Frac(dtpTid.Time) + Trunc(dtpDato.Date) then
  begin
    ShowMessage('HEST!');
    Timer1.Enabled := False;
  end;
end;

2) CoolTrayIcon er ret okay, og så er den udviklet af en dansker! :)
http://www.torry.net/vcl/system/trayicons/trayicon.zip

//hermandsen

Den kommer med en fejl.
[Error] Unit2.pas(64): Incompatible types: 'String' and 'TTime'
[Error] Unit2.pas(65): Incompatible types: 'String' and 'TDate'

brug hhv timetostr() og datetostr() eller datetimetostr

Personligt synes jeg at den bedste trayicon komponent er: http://www.torry.net/vcl/system/trayicons/trayicon.zip

Denne har også den fordel at du over i object inspectoren blot kan sætte minimize to tray og så blvier programmet automatisk minimeret til tray'en

For så at fx lave sådan at programmet kommer frem hvis man dobbeltklikker så bruger du blot cooltray icons event til det og indsætter dette:
  TrayIcon.ShowMainForm;

hermandsen>> Kan man ikke bare lave såda at brugeren kan afkrydse nogle felter med f.eks hver time, hver da, en gang om ugen eller en gang om måneden

hermandsen > ups, så ikek at det var den du også linkede til :(

Du kan jo bare lægge et år/måned/uge/dag/time/minut/sekund til når den er lagt fast!

const
  _SEKUND = 1/24/60/60;
  _MINUT = 1/24/60;
  _TIME = 1/24;
  _DAG = 1;
  _UGE = 7;
  _MÅNED = 30;
  _AAR = 365;

Så er det ellers bare at lægge til af hængigt af hvad du skal have... Smid eventuelt nogle edits på din form og så bare gang antallet af f.eks. dage med _DAG og læg det til din dtpDato.Date.

Typen TDateTime er egentlig bare en Double, som er beregnet ud fra d. 30. december 1899!

Den er delt op sådan at en dag = 1. En time er en 24'ende del af en dag, og et sekund er en 24*60*60'ende del af en dag...

Nå, men jeg skaber vist mere forviring end jeg gavner... Smutter igen! :)

//hermandsen

Kan du ikke forklare det lidt næmmere??? eks. hvor det skal stå

RTFM!!!

Per Amdal Steffensen - Delphi 4 Programmering

a hva'??

Start fra oven!
http://hackles.org/cgi-bin/archives.pl?request=2
http://hackles.org/cgi-bin/archives.pl?request=3
http://hackles.org/cgi-bin/archives.pl?request=140

Lidt mere:
http://hes.iki.fi/jargon/html/R/RTFM.html

den har jeg set før... Read The Fu***** Manuale

Hvordan gør jeg sådan at hvis jeg har en check box, og så hvis den er checked så gør den det hver dag?

var det mugligt at du kunne forklare det lidt nærmere hvordan man laver det?

Var det muligt du kunne gå på biblioteket så du ikke behøver at spørge om spørgsmål som er essentielle for at kunne programmere Delphi!? :)

Se på følgende:

Smid det her op før implementation...

const
  _SEKUND = 1/24/60/60;
  _MINUT = 1/24/60;
  _TIME = 1/24;
  _DAG = 1;
  _UGE = 7;
  _MÅNED = 30;
  _AAR = 365;

Lad os så lege at du vil lægge en uge til næste gang programmet skal give besked:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Now >= Frac(dtpTid.Time) + Trunc(dtpDato.Date) then
  begin
    dtpDato.Date := dtpDato.Date + _UGE;
    ShowMessage('HEST!');
    //Timer1.Enabled := False; Det her behøver du jo så ikke når du sætter det næste tidspunkt
  end;
end;

Og så må det vist være på tide at tage på biblioteket!!! ;)

Hvad skal der stå i de check boxe, som skal have hver dag, hver uge, hver månede ????

Hov...
_MÅNED virker selvfølgelig ikke, og du bør egentlig heller ikke have en der hedder måned, for månederne dage-antal varierer jo fra måned til måned...

Hvad er det nu for nogle checkboxe du snakker om???
Lån en bog!!!

Tak for hjælpen...