Anwendung auf Befehl öffnen

[Die Muhkuh]

Hi,

Delphi-Quellcode:

Line := Console.Lines[iLine];
if Line[1] <> '#' then
  exit; // Dann sinds keine Befehle
if Pos('#open', Line) > 0 then
begin
  Delete(Line, 1, 5);
  if FileExsits(Line) then
    ShellExecute(handle, nil, PChar(Line), nil, nil, SW_SHOW);
end else

bzw. so ähnlich halt