Datei da Speichern wo sich die Projekt *.exe befinden

[citybreaker]

Hallo!

Wie kann ich eine Datei so speichern das sie im
selben Ordner wie die Programm Exe ist?
Handelt sich um eine Textdatei. Bisher hab ich es
folgendermaßen gemacht.

Code:

Memo1.Lines.SavetoFile('C:\test.txt');

[Die Muhkuh]

Zitat:

Zitat von citybreaker

Bisher hab ich es
folgendermaßen gemacht.

Code:

Memo1.Lines.SavetoFile('C:\test.txt');

Probier's mal so:

Code:

Memo1.Lines.SavetoFile('test.txt');

[Jelly]

So kriegst du den AnwendungsPfad:

Code:

IncludeTrailingBackslash (ExtractFilePath(application.exename))) ;

Gruß,
Tom

[citybreaker]

Wenn ich die Textdatei jetzt mit dem TWebBrowser aufrufen wird
sie nicht angezeigt!

[Luckie]

Zitat:

Zitat von Spider

Probier's mal so:

Code:

Memo1.Lines.SavetoFile('test.txt');

Besser nicht. So landet die Datei im aktuellen Verzeichnis, welches nicht unbedingt das Anwendungsverzeichnis sein muß.

[Jelly]

Das liegt daran daß der Webbrowser nicht das gleiche Verzeichnis als Basis hat wie deine Anwendung.
Mit ExtractFileName ('test.txt') liefert dir Delphi aber den Absolutpfad deiner Text-Datei.

[citybreaker]

Zitat:

Zitat von Luckie

Zitat:

Zitat von Spider

Probier's mal so:

Code:

Memo1.Lines.SavetoFile('test.txt');

Besser nicht. So landet die Datei im aktuellen Verzeichnis, welches nicht unbedingt das Anwendungsverzeichnis sein muß.

Was wäre den besser?


--- Edit ---
Da wa wieder jemand schneller ^^

[Die Muhkuh]

Zitat:

Spider hat folgendes geschrieben:

Zitat:

Probier's mal so:
Code:

Memo1.Lines.SavetoFile('test.txt');

Besser nicht. So landet die Datei im aktuellen Verzeichnis, welches nicht unbedingt das Anwendungsverzeichnis sein muß.

Aso! hab ich net gewusst!

[Luckie]

Zitat:

Zitat von citybreaker

Da wa wieder jemand schneller ^^

Den Anwendungspfad mittles ParamStr(0) zu ermitteln.

[citybreaker]

Habs jetzt auf Jellys art gemacht,
alerdings klappts im Browser noch immer net.

[Dagon]

Hier noch ein kleiner Tipp: Verwende an Stelle von IncludeTrailingBackslash lieber IncludeTrailingPathDelimiter, da IncludeTrailingBackslash nichts anderes macht, als IncludeTrailingPathDelimiter aufzurufen.

[Jelly]

Zitat:

Zitat von the_master

Hier noch ein kleiner Tipp: Verwende an Stelle von IncludeTrailingBackslash lieber IncludeTrailingPathDelimiter, da IncludeTrailingBackslash nichts anderes macht, als IncludeTrailingPathDelimiter aufzurufen.

Heehh :freak:
Also manchmal versteh ich nicht was sich die Jungs bei Borland so alles ausdenken.

[citybreaker]

Also ich habs jetzt volgendermaßen.
(ist warscheinlich wieder komplett falsch)

Code:

Text.Lines.SaveToFile (ExtractFileName ('vorschau.html'));

Code:

Browser.Navigate(ExtractFileName ('vorschau.html'), i, q, r, s);

[Dagon]

An ExtractFileName musst du einen Pfad übergeben. So wie du es machst, wird vorschau.html ins Verzeichnis vorschau.html geschpeichert. Und vorschau.html ist glaube ich kein Verzeichnis. :wink:

[Jelly]

ExtractFilename ('vorschau.html') gibt dir einfach nur vorschau.html zurück. Bringt also nicht viel.
Probiers doch mal hiermit:[code]Browser.Navigate(ExtractFileName('vorschau.html')) , i, q, r, s);¢/code

[citybreaker]

Und wie geht das? :cry:

[Dagon]

In welchem Verzeichnis befindet sich nun deine HTML-Datei? Im Verzeichnis der Exe-Datei?
Dann solltest du die Datei so anzeigen können:

Delphi-Quellcode:

Browser.Navigate(ExtractFilePath(Application.ExeName) + 'Hallo.html', i, q, r, s);

[citybreaker]

Danke, das klappt. :dance:
Und wie würde das ganze mit ShellExecute aussehen?

[Dagon]

Was genau willst du mit ShellExecute öffnen?

[citybreaker]

Die Datei test.html.
Liegt auch im selben Ordner wie Projekt1.exe.
Reicht es da wenn ich

Code:

ShellExecute(Handle, 'open', 'test.html', nil, '', Sw_show);

verwende?!

[Dagon]

Ja, das würde eigentlich reichen. So gehts aber auch:

Delphi-Quellcode:

var Pfad: String;
begin
  Pfad := ExtractFilePath(Application.ExeName) + 'Hallo.html';
  ShellExecute(Handle, nil, PChar(Pfad), nil, nil, SW_SHOW);