Hilfe bei kleinem Programm-Programm starte anderes Programm

[derdirkdk]

Hallo,

ich habe damals immer mal bißchen mit Delphi programmiert und wollte mal wieder ein kleines Progrämmchen schreiben.

Das Programm soll aus 2 Teilen bestehen:

a. Einer TXT-Datei, die einfach nur die Adresse eines Programmes beinhaltet (z.B. "C:\Windows\mspaint.exe")
b. Der Delphi-EXE, die nur kurz aufpoppt, die TXT-Datei liest und dann das Programm, welches in der TXT-Datei steht, startet

Könnt Ihr mir dort weiterhelfen? Ich bin mir nicht sicher wie ich das mit der Text-Datei hinbekommen soll.

Vielen herzlichen Dank vorab,

Dirk!

[Teekeks]

Guck dir mal TStringlist an.
Die hat eine funktion loadfromfile
dann kommst du mit strings[x] an die einzelnen Zeilen...

[DeddyH]

Hallo und Willkommen in der DP :dp:
IMHO am einfachsten ist es, eine TStringlist zu erzeugen, die Datei mit LoadFromFile auszulesen und das darin stehende Programm (sofern eins drinsteht) mit ShellExecute zu starten. Anschließend die Stringliste wieder freigeben.

[derdirkdk]

Super!

Das hört sich gut an - Werde das am Wochenende mal in Angriff nehmen!

Besten Dank vorab für die schnelle Hilfe!

Dirk

[taaktaak]

Moin, Moin.
Wenn die Text-Datei aber tatsächlich nur den Programmpfad enthält, ist eine Stringliste vielleicht doch etwas übertrieben...

[DeddyH]

Wieso übertrieben? Man könnte das natürlich auch mit AssignFile, ReadLn etc. lösen, aber da finde ich die Stringliste weitaus bequemer zu handhaben.

[jaenicke]

Oder du erstellst eine Batchdatei (.bat) mit dieser Zeile, das macht das selbe, dann brauchst du gar kein Delphiprogramm. :mrgreen:

Code:

FOR /F %%i IN (datei.txt) DO %%i

[derdirkdk]

Hab mich grad mal drangesetzt, funktionierte auch als ich den Taschenrechner (calc.exe) aufgerufen habe...

Nun habe ich aber meine Quelldatei (pfad.conf) umgeschrieben, ich wollte MSPAINT aufrufen, aber da passiert nichts... Muss ich noch was ergänzen? Hier mal mein Code:


Liste := TStringList.Create;
Liste.LoadFromFile('pfad.conf');
ShellExecute(0, nil, PCHAR(Liste[0]), nil, nil, 0);
FreeAndNil(Liste);
Application.Terminate;

[DeddyH]

Verwende absolute Pfade. Und was steht denn in der Textdatei drin? Was gibt ShellExecute zurück?

[derdirkdk]

In der Textdatei steht wirklich nur der Pfad, also:

C:\Windows\notepad.exe

Bei C:\Windows\system32\calc.exe funktionierte es ja...