Hallo!
Ich will mit dem folgenden Consolen-Code eine Zeile zu einer Datei hinzufügen, und eventuelle leere Zeilen löschen. Der Code wird durch das Kontextmenü aufgerufen.
Delphi-Quellcode:
program add;
{$APPTYPE CONSOLE}
uses
SysUtils, Classes;
var sl: TStringlist; i : Integer;
begin
sl := TStringlist.create;
sl.LoadFromFile('.\data.list');
if sl.Count < 7 then sl.Add(Paramstr(1));
for i := 0 to sl.Count - 1 do if sl.Strings[i] = '' then sl.Delete(i);
sl.SaveToFile('.\data.list');
sl.Free;
writeln('Link created succesfully.');
end.
Der registry-key sieht so aus:
HKEY_CLASSES_ROOT\*\Shell\Desktop-Manager\command
(Standard)
Typ: REG_SZ
Wert: "C:\Dokumente und Einstellungen\Lucas\Eigene Dateien\Delphi\Manager\add.exe" %1
Mit einem rechtsklick auf eine Datei und den entsprechenden Eintrag im Kontextmenü bekomme ich aber einen Fehler: "Das Programm hat einen Fehler festgestellt und muss beendet werden."
Warum? Wie kann ich das besser machen?