Marabu, irgendwie geht dein Prog überhaupt nicht.
Es lässt alle Parameter aus.
Ich habe es jetzt mal geupdatet:
Delphi-Quellcode:
program add;
{$APPTYPE CONSOLE}
uses
SysUtils, Classes;
var sl: TStringlist; i : Integer;
begin
sl := TStringlist.create;
sl.LoadFromFile(ExtractFilePath(ParamStr(0))+'\data.list');
if sl.Count < 7 then sl.Add(Paramstr(1));
for i := sl.Count - 1 downto 0 do if sl.Strings[i] = '' then sl.Delete(i);
sl.SaveToFile(ExtractFilePath(ParamStr(0))+'\data.list');
sl.Free;
writeln('Link created succesfully.');
end.
Jetzt sieht aber die data-list so aus:
Zitat:
C:\Programme\Mozilla
C:\Dokumente
C:\Dokumente
Sprich: Er hört bei jedem Leerzeichen auf.
[EDIT]Titel geändert. Hoffentlich aussagekräftiger
.[/EDIT]