Trenger hjelp til button linking!

[Pc-løven]

Hei.

 

 

Jeg bruker delphi 7 og sitter her å lager et lite kontrollpanel.

 

Det jeg lurer på er ossen jeg programmerer en knapp til å linke til en side

når man trykker på den.

 

Jeg er ny i dette så please ikke le hvis dette høres dumt ut.

 

 

Takk

hilsen Håkon A

[Format71]

ShellExecute(application.handle, PChar('open'), PChar(url), nil, nil, SW_NORMAL);

 

url = 'http://......'

 

-Vegar

[Pc-løven]

Hei.

 

Okey, takker, men fikk det ikke helt til.

 

 

Slik gjorde jeg:

 

1. jeg startet et nytt form for å teste.

 

2.Jeg satte inn en knapp(en ok knapp)

 

3. Så klikket jeg på knappen å satte inn koden, og jeg endret url`n. Prøve flere måter der også (url='http://www.sol.no') og ('http://www.sol.no') i den kolonnen hvor det sto (url).

 

4. Dette satte jeg under begin.

 

5. Når jeg prøver å "starte" programmet så klikker det å den melder en error.

(han melder feil i den koden jeg fikk av deg + noe i "uses"

( Unit1 in 'Unit1.pas' {Form1}; )

 

Håper du kan hjelpe meg litt med deg, det hadde vært flott.

 

Og så lurte jeg på ossen jeg gjor hvis jeg skal f.eks "linke" en button til "word" f.eks.

 

 

På forhånd takk.

 

Mvh

Håkon Andreassen

[Format71]

Håper du kan hjelpe meg litt med deg, det hadde vært flott.

Vel - tror jeg egentlig klarer meg bra selv. Hva du skal med meg vet jeg ikke, men har uansett ikke lyst til å hjelpe deg med det...

 

 

Men uansett. Mulig jeg missforstår 'linke', men jeg forstår det dit hen at du ønsker å starte et program eller åpne en internett side eller lignende.

 

Når du høyreklikker på en fil i utforskeren vil du se at det kommer opp noen kommandoer du kan utføre på fila. F.eks. 'åpne' og 'skriv ut' på dokumenter.

 

Funksjonen ShellExecute (som du finner i ShellAPI) tar inn navnet på en fil, kommandoen du ønsker å utføre på denne, pluss litt annet.

 

Ønsker du å åpne word kan du gjøre følgende:

ShellExecute(handle, 'open', pathToWord + '\winword.exe', '', '', SW_SHOWNORMAL)

 

Ønsker du å skrive ut et dokument kan du skrive:

ShellExecute(handle, 'print', 'c:\mittdokument.doc', '', '', 0)

 

Ønsker du å åpne vg i default browser kan du skrive:

ShellExecute(handle, 'open', 'www.vg.no', '', '', SW_SHOWNORMAL)

 

Dersom dette ikke hjelper deg må du nok forklare litt nærmere hva du prøver på...

 

-Vegar

[trrunde]

Du må også legge til shellApi i uses