Komplet Source Kode - 530 point

Ok, andreas.

Jeg sender dig et program / source der kan det du vil til din mailadresse.

Det er for omfattende til at vise her, men hvis der er andre der er interesserede kan de blot angive deres mail-id så kommer der en kopi til dem også.

sjensen

Andreas,

Se i din indbakke på den mail-id du har opgivet her på dit "mini-site" i eksperten.

Der ligger et nydeligt lille systray eksempel til dig

sjensen

Jeg glemte at skrive noget man også godt må kunne...

Jeg har set ved nogle programmer kan man få den til at udføre en function, fx ved at skrive

c:\program.exe -start

og så køre den samme function, som når man trykker på start i programmet....

Ja, det er rigtigt. Men du skal selv i programmet styre hvad der skal ske afhængigt af hvad der skrives efter programnavnet. I Delphi (og pascal) kan man læse det der skrives på kommandolinien via det der hedder "paramstr(x)" (der er en string) og man kan se hvormange der er ved at kigge på "paramcount" der er en integer.

Programnavnet selv (med drev, sti og filnavn) er paramstr(0). Den første tekst efter dette (hvor et mellemrum opfattes som et skilletegn) er så paramstr(1), den næste paramstr(2) og så videre.

Hvis vi tager dit eks.:

c:\program.exe -start

så vil paramstr(0) indeholder "c:\program.exe" og paramstr(1) indeholde "-start". Når jeg siger indeholde er det ikke helt rigtigt. Paramstr(x) er en funktion der returnerer en string, men den kan kun gøre det en gang.

I dit program kan du så bruge disse funktioner f.eks. sådan:

procedure TForm1.formshow..
var start_parameter : string;
begin
  if paramcount > 0 then start_parameter := uppercase(paramstr(1)); // start_parameter indeholder nu "-start"
  // sæt uppercase på for at fange alle kombinationer af stor og små tegn ved at sætte alle til store.
  // test derefter på det sådan:
  if start_parameter = "-START" then StartButtonClick(sender);
  // dette vil svare til at trykke på knappen "StartButton" på skærmen.
end;

Jeg håber at dette hjælper dig lidt på vej. Læs i hjælpen om paramcount og paramstr(x). Der er nogle gode eksempler.

sjensen

Kan jeg også får det tilsendt ?

ckrame1@students.aabc.dk

mvh
Ckrame

ckrame, undskyld at jeg ikke har set din kommentar før nu. Der er et lille program på vej til dig også. Se i din indbakke.

sjensen

Hvad er der nu i vejen med RxLib's maade paa at lave TrayIcon programmer ?  :-)

Pellelil!

Virker æøå ikke på din maskine eller er det bare en gammel vane ?

Jeg sad på daværende tidspunkt i Litauen, men nu virker æøå fint igen - Tak.

>> sjensen. Det er ok det var ikke noget der hastede - men mange tak det virker jo fint

Hvis man gad kigge eksemplerne til Delphi igennem ville man finde et udemærket et der gør som du beskriver. Det er iøvrigt også beskrevet i developers guide. RTFM...

Det hedder altså "RYFM"

Jeg vil oxo gerne have det...

116491256@ofir.dk

?>