Hjælp!

Det kommer jo an på hvilken fil det er...
Mvh.
Rune Jensen

det er fordi du har skrevet det sådan her

procedure TForm1.Button1Click(Sender: TObject);
begin // den her skal ikke være der
var
str:string;
begin
str := 'C:\\WINNT\\system32\\calc.exe';
shel.execute(Handle, 'open', pchar(str), '', nil, SW_SHOWNORMAL);

end;


skal se sådan ud

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
begin
str := 'C:\\WINNT\\system32\\calc.exe';
shellexecute(Handle, 'open', pchar(str), '', nil, SW_SHOWNORMAL);

end;

[Redigeret d. 07/01-04 13:28:50 af john]

[Redigeret d. 07/01-04 13:36:48 af john]

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
begin
str := 'filnavn.pps';
shellexecute(Handle, 'open', pchar(str), '', nil, SW_SHOWNORMAL);

end;

MH.

The-Freak

Livet er for kort til at kede sig.

Hej!

Jeg er rimelig newbie, og skal nu bruge et lille portalprogram til en cdrom-præsentation.

Man skal kunne trykke på en knap i programmet hvorefter en bestemt fil åbnes (filen ligger i samme dir som programmet på cd'en). Det er ret nemt, men hvordan?

Er det koden til at åbne filer du vil have?

Med venlig hilsen
Frede_Manden

Bare til næste gang, kan du så ikke lave en mere beskrivende title? "Hjælp" for ikke rigtig en til at læse tråden, og man kan kun finde ud af hvad det er om når man læser tråden. Altså efter min mening er det dejligt og kunne vide hvad en tråd handler om ved at kigge på titlen.

Bare min kommentar.

MVH.
Armen L.A.

prøv den her

husk at tilføj Shellapi til din uses

var
str:string;
begin
str := 'C:\\WINNT\\system32\\calc.exe';
shel.execute(Handle, 'open', pchar(str), '', nil, SW_SHOWNORMAL);
end;

prøv den her

husk at tilføj Shellapi til din uses

Kode 

var
str:string;
begin
str := 'C:\\WINNT\\system32\\calc.exe';
shel.execute(Handle, 'open', pchar(str), '', nil, SW_SHOWNORMAL);
end;

Det ser fint ud!
Hvis filen (*.PPS) ligger i samme mappe som min programfil, skriver jeg så bare "filnavn.pps"

Bare til næste gang, kan du så ikke lave en mere beskrivende title? "Hjælp" for ikke rigtig en til at læse tråden, og man kan kun finde ud af hvad det er om når man læser tråden. Altså efter min mening er det dejligt og kunne vide hvad en tråd handler om ved at kigge på titlen.

Bare min kommentar.

MVH.
Armen L.A.

Sorry...
Det skal jeg gøre næste gang

prøv den her

husk at tilføj Shellapi til din uses

Kode 

var
str:string;
begin
str := 'C:\\WINNT\\system32\\calc.exe';
shel.execute(Handle, 'open', pchar(str), '', nil, SW_SHOWNORMAL);
end;

Det ser fint ud!
Hvis filen (*.PPS) ligger i samme mappe som min programfil, skriver jeg så bare "filnavn.pps"

ja det gør du

prøv den her

husk at tilføj Shellapi til din uses

Kode 

var
str:string;
begin
str := 'C:\\WINNT\\system32\\calc.exe';
shel.execute(Handle, 'open', pchar(str), '', nil, SW_SHOWNORMAL);
end;

Det ser fint ud!
Hvis filen (*.PPS) ligger i samme mappe som min programfil, skriver jeg så bare "filnavn.pps"


ja det gør du

Jeg har fået det problem, at når jeg debugger programmet kommer meddelsen "Statement expected but VAR found"

Jeg har tilføjet "Shellapi" til uses