Entwickler-Ecke
Dateizugriff - Exe Datei öffnen aus txt
Markus254 - Di 03.05.05 19:45
Titel: Exe Datei öffnen aus txt
Hi
Ich versuche aus einer txt datei den Pfad eines Programmes herauszufiltern und zu starten.
Problem: Ich weiss nicht wie man das anstellt.
Der ganze pfad befindet sich in der 2 Zeile der txt datei.
Könnt ihr mir helfen ?
Danke schon im Vorraus
Markus254
Moderiert von 
Christian S.: Topic aus Windows API verschoben am Di 03.05.2005 um 19:47
retnyg - Di 03.05.05 19:54
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| uses ... , shellapi;
...
procedure TForm1.Button1Click(Sender: TObject);
var sl:tstringlist;
begin
sl:=tstringlist.create;
sl.LoadFromFile('C:\myini.txt');
shellexecute(handle,'open',pchar(sl.Strings[1]),nil,nil,sw_show);
sl.Free;
end; |
Markus254 - Di 03.05.05 20:24
Oh !
Danke funktioniert prima !!! :D
retnyg - Di 03.05.05 20:27
aber nur solange die textdatei existiert und mindestens 2 zeilen hat...
Markus254 - Di 03.05.05 21:51
Und noch ne Frage :?: :
Wie kann ich machen das in der txt datei in der zeile 2 ein anderer pfad steht, also die Zeile löscht und dann einen anderen text in dieser Zeile steht, auch wenn es noch mehrere Zeilen hat (Habe da einen Tipp gekriegt der die ganze Datei löscht :( ) ?
Nochmal danke im Vorraus !
retnyg - Di 03.05.05 22:04
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TForm1.Button1Click(Sender: TObject);
var sl:tstringlist;
fn:string;
begin
fn:='C:\myini.txt';
if fileexists(fn) then begin
sl:=tstringlist.create;
sl.LoadFromFile(fn);
if sl.Count > 1 then begin
sl.Strings[1]:='blubb.exe';
sl.SaveToFile(fn);
end;
sl.Free;
end;
end; |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!