Programm in die Liste "Öffnen mit" von Windows hinzufügen

[thomas2009]

Hallo

mein Programm kann bmp, jpeg öffnen und nun möchte ich mein Programm
in die Menu-Liste von Windows hinzufügen
Wie lautet die Funktion dafür ?

[SaFu]

Schau mal hier

http://www.swissdelphicenter.ch/de/showcode.php?id=317

Gute Nacht

// edit sorry war das falsche bin schon müde ist auch spät :zwinker:

[thomas2009]

Ich wird auch die Funktion testen
Aber wo und was kann mit meinem Programm öffnen?!
Ich muss z.B. .bmp, .jpeg registrieren oder ?

Ich habe gerade eine andere Funktion gefunden. Mein Programm wird aufgerufen
aber das Bild wird nicht geöffnet ! :
http://www.swissdelphicenter.ch/torr...ode.php?id=497

Vielleicht habe ich was falsch programmiert

[toms]

Zitat:

Zitat von thomas2009

Ich habe gerade eine andere Funktion gefunden. Mein Programm wird aufgerufen
aber das Bild wird nicht geöffnet ! :
http://www.swissdelphicenter.ch/torr...ode.php?id=497
Vielleicht habe ich was falsch programmiert

Hallo, dein Programm startet. Das ist schon mal gut.
Warum denkst du, dass das Bild nicht angezeigt wird? Wie lädst du denn das Bild wenn das Programm geöffnet wird?

[thomas2009]

Damit mein Programm einen Grafik öffnen kann, muss ich zuerst wissen, was für ein Graphik (bmp, oder jpeg, ...) sonst klappt nicht, weil ich zuerst den Graphic in Bitmap konvertieren muss und dann in image1 laden :

Delphi-Quellcode:

//Onshow
if not(ParamCount=0) then Image1.Picture.LoadFromFile(ParamStr(1));

wie kann ich den Graphic-Type in dem String ParamStr(1) bekommen ?

[leddl]

Zitat:

Zitat von thomas2009

wie kann ich den Graphic-Type in dem String ParamStr(1) bekommen ?

ExtractFileExt

[DeddyH]

Zitat:

weil ich zuerst den Graphic in Bitmap konvertieren muss und dann in image1 laden

Wenn Du die Unit jpeg eingebunden hast, sollte das eigentlich nicht nötig sein.

[thomas2009]

Ich habe nun folgendes gemacht aber das Programm wird mit einem leeren Bild geöffnet !

Ich sehe auch keine Message

Delphi-Quellcode:

if (not(ParamCount=0)) and (ExtractFileExt(ParamStr(1))='.jpeg') then begin
showMessage(ExtractFileExt(ParamStr(1)));
end;

[Reinhardtinho]

Bist du mal mit dem Debugger durchgegangen und hast geguckt, ob die If-Anweisung ausgeführt wird?

[DeddyH]

Evtl. ist die Endung auch nur ".jpg"?