Hi Leutz,
ich habe nun das Forum durchforstet, so dass die Suchfunktion schon bald heiß laufen müsste (man findet Themen, die sagen dann aber andere wichtige Sachen, wie variable Pfade sind böse. Da solle man besser mit
ExtractFilePath(ParamStr(0)) arbeiten).
Jedenfalls:
Mein Programm soll eine Textdatei auslesen und wenn der Text
'run' ist, soll ein anderes programm gestartet werden:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm1.Timer1Timer(Sender: TObject);
var TFile : TextFile;
status : String;
begin
AssignFile (TFile,path+'control.txt');
Reset (TFile);
ReadLn (TFile, status);
CloseFile (TFile);
if status = 'run' then begin
ShellExecute(Handle,'open',PChar(path+'Taustakuvakello.exe'),nil,nil,SW_MINIMIZE);
end;
end; |
Der Pfad wird folgendermaßen erstellt:
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.FormCreate(Sender: TObject);
begin
path := ExtractFilePath (ParamStr(0));
path := copy(path,1, Length(path)-17); end; |
Ich hab den Pfad mehrmals überprüft, den String mehrmals neu geschrieben, aber es passiert nichts.
»Gedanken sind mächtiger als Waffen. Wir erlauben es unseren Bürgern nicht, Waffen zu führen - warum sollten wir es ihnen erlauben, selbständig zu denken?« Josef Stalin
Boldar
