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

[MisterX]

Ich will das alle links nach einander geöffnet werden

[Mephistopheles]

Dem Dativ sein Verhängnis war des Genitivs Freud.

Versuche doch doch bitte in produktiveren und verständlicheren Protestformen. Danke!

Will heißen: was willst du machen. Auch wenn es noch nicht in der "Verfassung" steht Forensprache, darüber scheint Konsens zu herrschen, ist Deutsch. Nicht Wasserpolnisch rückwärts und auch nicht Fachchinesisch senkrecht.

[MisterX]

Nun ja ich will ShellExecute in einem Timer einfügen un dann soll er fon der txt alle links öffnet die ich da eingebe

[Waldteufel]

Hi.

Wozu der Timer? :gruebel:

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

[Ultimator]

Entweder TFileStream oder AssignFile ReadLn.

[MisterX]

Timer damit er halt z.B jede min ein neun link aufmacht ^^

[gmarts]

Na dann nimm das:

Delphi-Quellcode:

ShellExecute(Handle, PChar('open'), PChar('C:\Windows\Explorer.exe'), PChar(S.Items[i]), SW_SHOWNORMAL));

aus der Schleife raus und packs in einen Timer!

Speziallösung für dich: mach ein Sleep(60000); in die Schleife.

[Mephistopheles]

@Waldteufel: geht das nicht auch ohne die Angabe von Explorer. Denn theoretisch bestimmt sich doch über das Verb open, welche Anwendung mit http://... usw. verbunden ist. Bei dir würde immer der IE geöffnet, obwohl ich z.B. Opera benutze.

@MisterX: bspw. könnte der Timer dann jede Minute eine weitere Zeile mit ReadLn() aus der Datei auslesen, welche dann an ShellExecute übergeben wird. Das Prinzip entspricht dem vom Waldteufel. Nur eben in der OnTimer-Methode.

[MisterX]

Wozu steht bei ShellExecute ('C:\Windows\Explorer.exe') er macht das doch so auf wen es ein link ist oderrrrrrrrrrrrr????????

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;

[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.. :oops: