Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Anwendung auf Befehl öffnen (https://www.delphipraxis.net/61663-anwendung-auf-befehl-oeffnen.html)

Nils_13 24. Jan 2006 19:01


Anwendung auf Befehl öffnen
 
Hi,

ich möchte, dass mein Programm Anwendungen öffnen kann. Das öffnen an sich ist nicht das Problem, da finde ich schon einen weg. Aber mein Problem ist die Unterscheidung in einem Befehl zwischen #open und test.exe.

#open test.exe

Es soll erst überprüft werden, ob #open da steht. Das habe ich bisher immer so gelöst:
Delphi-Quellcode:
if Console.Lines[iLine] = '#open' then
begin

end else

// etc
Nur wie geht es jetzt weiter ?

Und eine andere Sache: Wie kann ich überprüfen, ob die Datei vorhanden ist ?

Die Muhkuh 24. Jan 2006 19:06

Re: Anwendung auf Befehl öffnen
 
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 ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:32 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz