Ich würde es vielleicht mit einer StringListe machen
Delphi-Quellcode:
if FileExists(
url datei)
then
begin
sl := TStringList.Create;
try
sl.LoadFromFile(
url datei);
if sl.Count > 0
begin
for i := 0
to sl.Count - 1
do
begin
if Pos('
url=', sl.Strings[i]) > -1
then
begin
showmessage( Copy(sl.Strings[i], Pos('
=', sl.Strings[i]) + 1, Length(sl.Strings[i])) );
end;
end;
end;
finally
sl.Free;
end;
end;
Danke
Mit kleiner Änderung geht es. (Muss nur noch das Caption ändern ist aber kein Problem)
Delphi-Quellcode:
if Extension = '
.url'
then
begin
sl := TStringList.Create;
try
sl.LoadFromFile(FileName);
if sl.Count > 0
then
begin
for IntI := 0
to sl.Count - 1
do
begin
if InStr(lowercase(sl.Strings[IntI]), '
url=') = 1
then
begin
FileName := Copy(sl.Strings[IntI], Pos('
=', sl.Strings[IntI]) + 1,
Length(sl.Strings[IntI]));
break;
end;
end;
end;
finally
sl.Free;
end;
end;
Ich hätte jetzt meine riesen
Unit (7KB) eingebunden damit wäre es auch gegangen da hier schon alles vorbereitet war. (Siehe OTTB uFileRelated)
So geht es aber schneller.
gruss