Paramater wärend der Laufzeit übergeben?

[s-off]

Dann schreibst Du bspw. im OnShow-Event Deiner Mainform

Label1.Caption := ParamStr(1); Damit wird der in ParamStr(1) übergebene Dateiname in der Caption Deines Labels angezeigt.

[Tommy1988]

Ok, das habe ich jetzt technisch soweit verstanden. aber eine frage brennt mich noch:
angenommen, ich möchte nicht den dateinamen, sondern den inhalt der datei abfragen..

wie gehe ich bei soetwas vor?

[mkinzler]

Mit Hilfe des Dateinamens die Datei öffnen und Inhalt einladen

[teebee]

Damit Du den Dateinamen auch als Parameter bekommst, ist es wichtig, dass Du in der Registry im Schlüssel mit dem shell-open-Kommando, also dort wo deine Anwendung steht, die mit der Dateiendung verknüpft ist, den Parameter "%1" an die .exe hängst. Erst dann bekommt Deine Anwendung den Dateinamen vom Explorer als Parameter mit auf den Weg gegeben:

Code:

meinDateityp/shell/open  (Standard) MeineAnwendung.exe "%1"

[Tommy1988]

Zitat:

Mit Hilfe des Dateinamens die Datei öffnen und Inhalt einladen

Ja, so einfach ist das für mich ja nicht.
Das Problem ist, dass wenn ich die Beispieldatei mit der Beispieldateiendung öffne, sich ja mein eigentlches Testprogramm öffnet und ein leeres Formular anzeigt.

[mkinzler]

Ja un diesem musst du mit Hilfe des übergeben Parameters (Dateiname inkl. Pfad) die Datei öffnen und Laden. Um was für eine art von Datei handelt es sich?

[Tommy1988]

Ok, jetzt habe ich verstanden. Ich werde umgehend alles testen.

Ich melde mich wenn ich mehr weis.

[Tommy1988]

Super Ich hab kapiert wie das funktioniert. Ich habe mir vorher alles viel schwieriger vorgestellt und mich deswegen da nicht rangetraut.

Folgendes hab ich gemacht (OnShow):

Delphi-Quellcode:

var
Liste: TStringList;
begin

Label1.Caption := ParamStr(1); // Dateipfad holen plus Dateiname -und Endung

Liste := TStringlist.Create;
Liste.LoadFromFile(Label1.Caption);
Label2.Caption := Liste.Strings[Liste.Count];

In der Textdatei ist die erste Zeile mit "XXXXXXXXXXXXXXXXX" gefüllt.
XXX[...] wird folständig im Label2 angezeigt

Edit: Eine Frage bezüglich http://www.delphipraxis.net/internal...t=registrieren dieses Codes hätte ich aber noch. Das Icon, dass die Datei dann hat ist ja das Icon, meines Testprogramms. In meinem Fall das komische DelphiIcon da.

Kann man das via ImageList ändern? Ich lade ein Bild in eine ImageList und übergebe es an die Funktion?
Wenn das so geht, ich habe keine Ahnung, wo ich in der Funktion etwas ändern muss. Weil OpenKey('DefaultIcon'... hört sich für mich seltsam an