Eine txt Datei mit links soll mit ShellExecute alle links öf

[Waldteufel]

Hi.

Wozu der Timer?

Ich schätze mal, dass die Datei, aus der du die Links ausliest, so aufgebaut ist:

Code:

[url]http://www.delphipraxis.de[/url]
[url]http://www.meinehomepage.de[/url]
[url]ftp://www.sonstwo.com[/url]
[url]gopher://www.abcdefg.xyz[/url]

So müsste es gehen:

Delphi-Quellcode:

procedure MachMal(dateiname : string);
var
  S : TStringList;
  i : integer;
begin
  S := TStringList.Create;
  S.LoadFromFile(dateiname);
  for i := 0 to S.Count - 1 do
  begin
    ShellExecute(Handle, PChar('open'), PChar('C:\Windows\Explorer.exe'), PChar(S.Items[i]), SW_SHOWNORMAL));
  end;
end;

mfg, Waldteufel