meinem programm einen bestimmten dateityp zuweisen

[dopeline]

das ist ja das problem: er sagt nichts. beim kompilieren ist alles paletti. aber sobalt ich eine datei öffne (doppelklicke) kommt eine message. "konnte pfad nicht finden..." und das programm öffnet sich. und das wars schon.
ich glaube das problem liegt an der stelle onFormCreate...
dort wird es dann so unübersichtlich. als erstes muss er irgentwas mit der registry machen (?), irgentwas muss ja auch noch dieses "if ParamCount>0 then" auftauchen mitsamt dem prozedere des öffnens(s.o.) einer datei. dann kommt die ganze ini-geschichte (zuletzt geöffnete dateien) und dann noch der rest stringgridbezeichnung usw.

da verliert man schnell die übersicht...

[dopeline]

also ich das hier hier gefunden und eingebaut (oben unter implementation) und dann onformcreat aufgerufen. (aufruf auf der seite ganz unten)

[Christian Seehase]

Moin dopeline,

Dein Dateityp ist offensichtlich registriert worden, sonst würde sich ja Dein Programm nicht öffnen, wenn eine entsprechende Datei ausgewählt wird.
(Die Registrierung eines Dateitypen sollte auch nur einmal, nämlich bei der Installation erfolgen)

Am Besten lässt Du Dir mal im OnCreate des Hauptformulares anzeigen, was im ParamStr(1) übergeben wurde (z.B. mit ShowMessage).

Ausserdem könntest Du mal an dieser Stelle einen Breakpoint setzen, und dann im Einzelschrittmodus (F7/F8) durchgehen, um genau zu ermitteln, an welcher Stelle die Exception ausgelöst wird.

[beatles]

Schönen guten Sonntag

Ich möchte jedoch mehr als "Doppelklick öffnet Datei mit meinem Programm".

Soweit wie in diesem Code (von Christian Seehase) angegeben, habe ich es auch geschafft.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  if paramcount > 0 then
  begin
    // z.B. übergebenen Datei in ein Memo laden
    // oder was auch sonst mit der Datei geschehen soll.
    Memo1.Lines.LoadFromFile(paramstr(1));
  end;
end;

mein Problem ist es jedoch, bei einem weiteren Klick wird das gleiche Programm noch einmal gestarten und die Datei geladen. das möchte ich gerne verhindern. Die Datei soll mit dem (wenn es bereits gestartet ist) Programm geladen werden. So wie bei dem Windows-Mediaplayer, beim anklicken einer *.wav-Datei. Da wird auch kein neuer Player geöffnet. Ich habe mich schon Tagelang hier im Forum umgeschaut, aber noch nichts gefunden

Ich habe bei http://www.delphi-fundgrube.de/faq03.htm zwar das gefunden: (hier ein Ausschnitt) "Falls eine laufende Instanz eines Programms eine verknüpfte Datei öffnen soll, muß das Programm auf eine Message reagieren:"

Delphi-Quellcode:

type
  TMainForm = class(TForm)
  Private
    procedure NeedFileOpen(var Msg: tMessage); Message wmMainInstanceOpenFile;

[..]

procedure TMainForm.NeedFileOpen(var Msg: tMessage);
var Path : string;
    PC   : array[0..MAX_PATH] of Char;
begin
  GlobalGetAtomName(Msg.wParam, PC, MAX_PATH);
  Path := Trim(StrPas(PC));
  Datei_laden(Path); // Den Code zum Laden der Daten ausführen
end;

Leider bekam ich bei Message wmMainInstanceOpenFile; bereits eine Fehlermeldung.

Gibt es ein Lösung?

mfg
Beatles

[Christian Seehase]

Moin Beatles,

guckst Du hier:

Mit Mehreren Datein ein Program Starten