alternativ shellexecute

forstår ikke helt dit spørgsmål?
Vil du registrere en ny extension som dit program skal åbne?
Gider du ikke bruge shellexecute til åbning af filer?
....

hmm

hvis du har adgang til sorcen for det program der skal åbne filerne, eller du ved at man kan kalde det med et filnavn som parameter, så kan du fint bruge shellexecute..

shellexecute(handle,nil,pchar('mitprogram.exe'),pchar('minfil.txt'),nil,sw_show);

hvis mitprogram.exe kigger på paramstr vil det se minfil.txt og bruge den til hvad det nu er den bruger sådan noget til ;-)

ha' det godt
hatecaps

justincase1089: Jeg går ud fra det er en fejl du har skrevet dig på til et svar.
dkn: nej jeg vil ikke lave om på de associerede fil-extentioner.Det ville ellers være en let måde at løse det på, men programmet er ikke så vitalt at det skal dominere instillingerne på min computer.

hatecaps:Jeg prøver lige at fordøje lidt på din programlinie, men umiddelbart virker det ikke som om det kan gå i tråd med programopbygningen.

Det er et dbmemofelt i en database, der for hver record indeholder en filhenvisning.Jeg har så denne button, hvis kildekode er angivet, der åbner den angivne fil (i hver record), når jeg klikker mig igennem de forsk. rekords.D.v.s. hvis det er en doc-fil åbnes det i word, hvis det er en pas fil åbnes det i delphi, hvis det er en htm-fil åbnes det i en browser o.s.v..Problemet er at jeg gerne ville have htm-filerne til at exekveres i en delphi-konstrueret browser, der altså foreligger i exe-format, men jo osse formentlig kan indkobles i programmet (der er kun få funktioner med).
Håber det kan kaste lidt lys over problematikken.

Men jeg prøver noget i stil med det her:  shellexecute(handle,nil,pchar('mitprogram.exe'),PChar(DBMemo1.Lines[Cnt]),nil,nil,sw_show);
og vender så tilbage.

ok i såfald kan du vel bare bruge paramstr og paramscount:

i 'mitprogram.exe' Oncreate:
Var
st:String;
i:integer;
begin
st := '';
for i := 1 to paramcount-1 do
st := st+paramstr(I);

//ok nu har vi så alt param teksten, dvs du har filnavnet.
if extractfilext(st) = '.txt' then
    memo1.lines.loadfromfile(st) else
if extractfilext(st) = '.htm' then
    webbrowser1.navigate('file://'+st);
end;

jeg har her gået ud fra at der i din start kode har stået:
shellexecute(handle,nil,pchar('mitprogram.exe'),PChar(DBMemo1.Lines[Cnt]),nil,nil,sw_show);


ps jeg ved ikke om koden jeg skrev er helt uden fejl med prøv

dkn

hatecaps: det gik fint med at få 'mitprogram.exe' til at starte op,men den tager ikke filen ind.
dkn: Jeg prøver lige at kigge på det.

WebBrowser1.Navigate(Table1Genvej.AsString);
løste problemet