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

[Waldteufel]

Hi.

Hmmm... Bist du dir da sicher? Naja...

Dann so:

Delphi-Quellcode:

var
  link_num : integer;
  s : TStringList;

procedure TForm1.Timer1Timer(Sender : TObject);
begin
  ShellExecute(Handle, PChar('open'), PChar(S.Items[link_num]), PChar(''), SW_SHOWNORMAL));
  Inc(link_num);
  if link_num = S.Count then link_num := 0;
end;

procedure TForm1.Form1Create(Sender : TObject);
begin
  link_num := 0;
  S := TStringList.Create;  
  S.LoadFromFile('wasweißichwo.txt');
end;

procedure TForm1.Form1Destroy(Sender : TObject);
begin
  S.Free;
end;

//edit : Ups... Ein Programmierfehler..