"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