Öffnen mit...

[ZelltoD]

Hallo Leute..

Und zwar möchte ich, dass mein programm den Dateinamen einer vom Benutzer gewählten Datei in einem String speichert. Das soll aber über "Datei->öffnen mit -> mein Programm" stattfinden.
Ein Beispiel wäre eine mp3 file: Anstatt sie wie immer mit Itunes zu öffnen, öffne ich sie mit Rechtsklick, "öffnen mit", "mein programm". Mein programm soll nun nichts weiteres als den Dateinamen in einem String speichern.

Doch leichter gesagt als getan, meine ersten Versuche scheiterten leider:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
 var n:string; //n = Variable für den Dateinamen der Datei die mit dem Programm geöffnet wurde

begin
  if Paramcount > 0 then n := Paramstr(1);
end;

Ich hoffe ihr findet meinen Fehler :roll:

mfg

[mkinzler]

Was steht den danach in n?

[ZelltoD]

Zitat:

Zitat von mkinzler

Was steht den danach in n?

Danch ?

Ich glaube ich hab mich undeutlich ausgedrückt ...
Das n ist der String in dem der Dateiname von der geöffneten Datei gespeichert werden soll, ansonsten nichts. n verändert sich erst wieder wenn eine neue Datei über diese Methode geladen werden soll;

[mkinzler]

Und was steht nach der Zuweisung des 1. Parameters da drin?

[ZelltoD]

Da liegt mein Problem -> Normalerweise übergibt Windows ja beim Ausführen von öffnen mit einen Parameter.
Aber wenn ich nach der Zuweisung auf n, n z.B. per showmessage anzeigen lasse ist n leer.

[mkinzler]

Lass dir mal alle übergebenen Parameter anzeigen.

[ZelltoD]

Is jetzt vielleicht ne n bisschen blöde Frage, aber ich hab noch nicht allzu ausgiebig mit parametern gearbeitet.

Wie kann ich mir alle übergebenen Parameter anzeigen lassen?

[inherited]

for i := 1 to ParamCount do
ShowMessage(ParamStr(i));

[silver-moon-2000]

Zitat:

Zitat von ZelltoD

Wie kann ich mir alle übergebenen Parameter anzeigen lassen?

Ungefähr so:

Delphi-Quellcode:

if ParamCount > 0 then
begin
  for i := 1 to ParamCount - 1 do
    ShowMessage(ParamStr(i));
end;

[edit] C Syntax beseitigt und: argh zu langsam
[edit2] Fehler (hoffentlich) beseitigt, peinlich

[mkinzler]

So knallt es, da Index bei 0 beginnt!