/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
ShellExecute ved *.exe med parameter + et~
Fra : Esben Piltoft


Dato : 24-02-01 15:33

Hejsa.. Efter timers forgæves forsøg, er jeg meget tæt på at give op.

Jeg kan ikke få ShellExecute til at køre en *.exe-fil hvis der er en eller
flere parametre efter *.exe-filen - Har efterhånden prøvet alt (undtagen det
der virker ;)

Dette gør jeg:
//=================
procedure Download(i:byte);
var
WorkingDir, Programstring : String;
returnresult : integer;
begin
WorkingDir:= GetCurrentDir + '\'; //Arbejdsbiblioteket findes
programstring := 'FL4W.EXE 13309990.02c'; //Program med parameter som jeg
gerne vil udføre

returnresult := ShellExecute(0,Pchar('Open'), Pchar(Programstring), nil,
Pchar(WorkingDir),SW_NORMAL); //Dette virker så desværre ikke da det
åbenbart kun virker uden parameter
if returnresult = ERROR_FILE_NOT_FOUND then
showmessage('Fil ikke fundet: ' + programstring); //Og så er der jo
ikke andet at gøre end at småtude ;)
end;
//==================



Og andet spørgsmål:

Hvordan formaterer man 'TTabSheet' til en 'String' (hvis man da kan gøre
det?)

Dette gør jeg nu:
//============
if EEPromForm.PageControl1.ActivePage = TabSheet1 then
IniFil.WriteString('User', 'Page', 'TabSheet1');
//============

Og det jeg gerne ville gøre er noget i retning af:
//============
Procedure Tralala;
var
TS : String
begin
TS := EEPromForm.PageControl1.ActivePage
end;
//============

Hvor jeg så ville regne med at der der så feks. ville stå 'TabSheet1' i TS
(hvis det var det aktive faneblad).

Men når jeg så vil kompilere, en så kommer fejlen: Incompatible types:
'String' and 'TTabSheet' -

Mit stakkels mavesår ;)


På forhånd tak

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Esben Piltoft E-mail: piltoft@mail1.stofanet.dk





 
 
Flint Firefoot (24-02-2001)
Kommentar
Fra : Flint Firefoot


Dato : 24-02-01 22:53


"Esben Piltoft" <piltoft@mail1.stofanet.dk> hit the keyboard with this
news:KEPl6.1783$aJ.22981@news101.telia.com...
| Hejsa.. Efter timers forgæves forsøg, er jeg meget tæt på at give op.
|
| Jeg kan ikke få ShellExecute til at køre en *.exe-fil hvis der er en eller
| flere parametre efter *.exe-filen - Har efterhånden prøvet alt (undtagen
det
| der virker ;)
|
| Dette gør jeg:
| //=================
| procedure Download(i:byte);
| var
| WorkingDir, Programstring : String;
| returnresult : integer;
| begin
| WorkingDir:= GetCurrentDir + '\'; //Arbejdsbiblioteket findes
| programstring := 'FL4W.EXE 13309990.02c'; //Program med parameter som jeg
| gerne vil udføre
|
| returnresult := ShellExecute(0,Pchar('Open'), Pchar(Programstring), nil,
| Pchar(WorkingDir),SW_NORMAL); //Dette virker så desværre ikke da det
| åbenbart kun virker uden parameter
| if returnresult = ERROR_FILE_NOT_FOUND then
| showmessage('Fil ikke fundet: ' + programstring); //Og så er der
jo
| ikke andet at gøre end at småtude ;)
| end;
| //==================
|

ShellExecute(0, Pchar('Open'), Pchar('FL4W.EXE'), Pchar('13309990.02c'),
Pchar(WorkingDir), SW_NORMAL)

Så skulle det virke, kik parameter for sig selv, det var fejlen....


|
| Og andet spørgsmål:
|
| Hvordan formaterer man 'TTabSheet' til en 'String' (hvis man da kan gøre
| det?)
|
| Dette gør jeg nu:
| //============
| if EEPromForm.PageControl1.ActivePage = TabSheet1 then
| IniFil.WriteString('User', 'Page', 'TabSheet1');
| //============
|
| Og det jeg gerne ville gøre er noget i retning af:
| //============
| Procedure Tralala;
| var
| TS : String
| begin
| TS := EEPromForm.PageControl1.ActivePage
| end;
| //============
|
| Hvor jeg så ville regne med at der der så feks. ville stå 'TabSheet1' i TS
| (hvis det var det aktive faneblad).
|
| Men når jeg så vil kompilere, en så kommer fejlen: Incompatible types:
| 'String' and 'TTabSheet' -
|

Måske lidt i stil med
TS := PageControl1.Pages[PageControl1.ActitivePageIndex]
Er ikke helt sikker, var lige et skud i luften

| Mit stakkels mavesår ;)

Hvad har man så lært af det, DRIK mere kaffe, ups slap af engang i mellem!


| På forhånd tak
|
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Esben Piltoft E-mail: piltoft@mail1.stofanet.dk

Venlig Hilsen
Flint Firefoot



Esben Piltoft (25-02-2001)
Kommentar
Fra : Esben Piltoft


Dato : 25-02-01 12:45

> ShellExecute(0, Pchar('Open'), Pchar('FL4W.EXE'), Pchar('13309990.02c'),
> Pchar(WorkingDir), SW_NORMAL)
>
> Så skulle det virke, kik parameter for sig selv, det var fejlen....

Jeg skal helt sikker have briller! Det står jo skåret ud i pap i
hjælpen....Men jeg havde åbenbart stirret mig blind på linien over den :)


> Måske lidt i stil med
> TS := PageControl1.Pages[PageControl1.ActitivePageIndex]
> Er ikke helt sikker, var lige et skud i luften

Og den kunne jeg desværre ikke få til at virke... Men jeg har endnu ikke
givet helt op :)

> Venlig Hilsen
> Flint Firefoot


Jeg takker mange, mange gange. Så var weekenden alligevel ikke helt spildt
:)
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Esben Piltoft E-mail: piltoft@mail1.stofanet.dk




Flint Firefoot (26-02-2001)
Kommentar
Fra : Flint Firefoot


Dato : 26-02-01 01:24


"Esben Piltoft" <piltoft@mail1.stofanet.dk> Slammed on his keyboard
news:Lg6m6.2044$aJ.48635@news101.telia.com...

| > Måske lidt i stil med
| > TS := PageControl1.Pages[PageControl1.ActitivePageIndex]
| > Er ikke helt sikker, var lige et skud i luften

O.K. det skulle være noget lignende dette

TS := PageControl1.Pages[PageControl1.ActivePageIndex].Caption;

Manglede lige (.Caption) for at det virker

Venlig Hilsen
Flint Firefoot

http://www.geocities.com/flint_firefoot/




Henning Petersen (26-02-2001)
Kommentar
Fra : Henning Petersen


Dato : 26-02-01 08:07

On Sat, 24 Feb 2001 15:33:14 +0100, "Esben Piltoft"
<piltoft@mail1.stofanet.dk> wrote:

>
> Og andet spørgsmål:
>
> Hvordan formaterer man 'TTabSheet' til en 'String' (hvis man da kan gøre
> det?)
>
> Dette gør jeg nu:
> //============
> if EEPromForm.PageControl1.ActivePage = TabSheet1 then
> IniFil.WriteString('User', 'Page', 'TabSheet1');
> //============
>
> Og det jeg gerne ville gøre er noget i retning af:
> //============
> Procedure Tralala;
> var
> TS : String
> begin
> TS := EEPromForm.PageControl1.ActivePage

   TS := EEPromForm.PageControl1.ActivePage.Caption
eller
   TS := EEPromForm.PageControl1.ActivePage.Text

Kan ikke lige huske hvilken det er det skal bruges.

> end;
> //============

--
Venlig hilsen / Best regards
   Henning

_H_P_C_o_n_s_u_l_t_ E-mail: mailto:henning.petersen@hpc.dk
Skoletoften 9, Blans Work: http://www.hpc.dk
DK - 6400 Soenderborg Hobby: http://www.dds.dk

Esben Piltoft (26-02-2001)
Kommentar
Fra : Esben Piltoft


Dato : 26-02-01 20:54

> TS := EEPromForm.PageControl1.ActivePage.Caption
> eller
> TS := EEPromForm.PageControl1.ActivePage.Text
>
> Kan ikke lige huske hvilken det er det skal bruges.
>
> --
> Venlig hilsen / Best regards
> Henning

Det ramte plet!! Jeg skulle bare bruge Name i stedet :)
Jeg kan godt være lidt irriteret over at jeg ikke selv havde set det.. Men
min hjerne kommer forhåbentlig hjem fra ferie inden længe ;)

Takker for hjælpen!!
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Esben Piltoft E-mail: piltoft@mail1.stofanet.dk




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste