Externe Textdatei öffnen mit definiertem Pfad...Plz Help ^^

Hatebreeder · Beiträge: 19 Win XP D7 Corp

also ich hab folgendes vor: 2 buttons, auf einem wählt man das verzeichnis das fürs prog benötigt wird (soll inis editieren)

markieren

Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.BtDefineClick(Sender: TObject);
var dir: string;
begin
  if SelectDirectory('Wählen Sie ein Verzeichnis!', '', dir) then
   LbPath.caption:=dir;
end;

auf dem zweiten button soll dann in diesem verzeichnis die datei bla.ini geöffnet werden...ich habe das hier versucht aber es klappt nicht:

markieren

Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.BtOpenClick(Sender: TObject);
var Path: string;
begin
Path:=LbPath.caption + '\bla.ini';
ShellExecute(Handle, 'open', 'Path', nil, nil, SW_SHOWNORMAL);
end;

er kann die datei nicht öffnen, da er nach der dati 'Path' sucht...die '' kann ich nicht entfernen, da es in ShellExecute so festgelegt ist...

Hoffe ihr versteht mein Problem habs eilig darum schreib ich bisserl unverständlich ^^

greetz

Der Michel · Beiträge: 38

Hallo,

hmm... also wenn ich dich richtig verstehe müßte das hier

markieren

Quelltext

1:	ShellExecute(Handle, 'open',PChar(Path), nil, nil, SW_SHOWNORMAL);

eigentlich die Lösung sein. ;-)

Gruß,
Michel

JeanvanHees · Beiträge: 146 win 2000 D6 Pers

Schau mal in den FAQ für die textdatei zu öffnen.
Ist übrigens die Opendialog component nicht ein schöneres alternativ für das selectieren des files?

_________________
Cause even though I know things won't get any better, they can certainly never get much worse!

Hatebreeder · Beiträge: 19 Win XP D7 Corp

super, danke michael das war die lösung !
@jeanvanhees mit opendialog ist nicht gut, weil er eben veschiedene files aus einem folder öffnen soll...

Hatebreeder · Beiträge: 19 Win XP D7 Corp

ganz dumme frage:
kann ich den path irgendwie speicher?also ich wollte mal wissen wie ^^

thx

Ehemaliges Mitglied Erhaltene Danke: 1

Wie speichern? Temporär im Programm oder in einer Datei auf der Festplatte?

Hatebreeder · Beiträge: 19 Win XP D7 Corp

in einer externen datei auf der platte...zb settings.txt oder so

Ehemaliges Mitglied Erhaltene Danke: 1

Informier dich mal hier im Forum und in der Hilfe über TInifile.

Palmetshofer · Beiträge: 44

Um zu Speichern:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.BtnSaveClick(Sender:TObject);
var
List: TStrings;
dir: String;
begin
if SelectDirectory('Wählen Sie ein Verzeichnis!', '', dir) then 
   LbPath.caption:=dir;
List := TstringList.Create;
List.Add(dir + '\bla.ini');
List.SaveToFile('C:\Windows\ProgrammSettings.txt');
end;

Um zu Laden:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.BtnSaveClick(Sender:TObject);
var
List: TStrings;
dir: String;
begin
List.LoadFromFile('C:\Windows\ProgrammSettings.txt');
dir := List.Strings[0];
ShellExecute(Handle, 'open', PChar(dir), nil, nil, SW_SHOWNORMAL);
end;

Ich hoffe ich hab mich net verschrieben! Ich schätze es wird auch einen anderen weg geben aber dir ist glaube ich net schlecht!
Du musst nur schaun dass beim neuen speichern eventuell die Stinglist 'gecleart' wird sonst stimmt der Index Integer nicht!

MfG Matthias

_________________
Menschen stolpern nicht über Berge, sondern über Maulwurfshügel.
Konfuzius

Hatebreeder · Beiträge: 19 Win XP D7 Corp

ok super thx, hat mir seh geholfen !

Ehemaliges Mitglied Erhaltene Danke: 1

Wo ist der Ressourcen-Schutz? :roll:

Hatebreeder · Beiträge: 19 Win XP D7 Corp

so hab ích das jetzt:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TLauncher.MiSaveClick(Sender: TObject);
begin{1}
ini := TIniFile.Create('C:\Dokumente und Einstellungen\Anthony\Desktop\Launcher\settings.ini');
try
  ini.WriteString('Settings','Path',Path);
finally
  ini.Free;
end;{1}
end;

procedure TLauncher.MiLoadClick(Sender: TObject);
begin{1}
ini := TIniFile.Create('C:\Dokumente und Einstellungen\Anthony\Desktop\Launcher\settings.ini');
try
  Path := ini.ReadString('Settings','Path','');
finally
  ini.Free;
end;{1}
end;

wie muss ich die zeile ini := TIniFile.Create('C:\Dokumente und Einstellungen\Anthony\Desktop\Launcher\settings.ini'); ändern, damit er statt dem ganzen pfad einfach das verzeichnis wo auch die exe drin is nimmt?

sorry 4 being stupid ^^

Ehemaliges Mitglied Erhaltene Danke: 1

ParamStr(0), ExtractFilepath.

Hatebreeder · Beiträge: 19 Win XP D7 Corp

kannste mir bidde ma die genaue zeile dann sagen? *duck*
thx nochma für deine geduld mit nem newbie ^^

Ehemaliges Mitglied Erhaltene Danke: 1

ParamStr(0) liefert dir den Pfad plus Anwendungsnamen und ExtractFilepath extrahiert dir den Pfad aus dieser Angabe. Dann mußt du nur noch deinen Dateinamen dranhängen.

Hatebreeder · Beiträge: 19 Win XP D7 Corp

ok funzt nu riesen thx nochma

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme