|
Registriert seit: 31. Aug 2005
1.622 Beiträge
FreePascal / Lazarus
|
Re: Öffnen mit...
24. Nov 2005, 13:49
Bei einem leerzeichen werden die weitere Parameter hinzugefügt. Du musst es also so machen:
Delphi-Quellcode:
procedure Form1OnCreate(sender:TObject);
var i:integer;
s:string;
begin
if ParamCount > 1 then
begin
for i := 1 to paramcount-1 do
s := s + paramsstr(i)
if FileExists(s) then
OpenFile(s);
end;
end;
mit dem "for i := 1..." bin ich mir nicht so sicher, könnte auch sein das du 0 schreiben musst.
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
|