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"?

[thomas2009]

Als test habe ich einfach mit ShowMessage gearbeitet
Die If-Anweisung arbeitet nicht

Delphi-Quellcode:

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

[Reinhardtinho]

Hat die Datei auch wirklich diese Dateiendung?

Groß- und Kleinschreibung wird berücksichtigt, d.h. "Jpeg" führt dazu, dass der Ausdruck falsch ist.

[thomas2009]

Wenn ich das Bild nicht direkt bei OnCreate oder OnShow öffne dann funktioniert
ich habe einen Timer verwendet :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
if (not(ParamCount=0)) and (AnsiLowerCase(ExtractFileExt(ParamStr(1)))='.jpeg') then begin
path:=ParamStr(1);
timer1.enabled:=true;
end;

procedure TForm1.Timer1(Sender: TObject);
begin
image1.picture. ... // dann funktioniert
end;

Woran kann es liegen :(

[Reinhardtinho]

Zeige doch mal bitte das komplette OnCreate-Event.

[thomas2009]

Zitat:

Zitat von Reinhardtinho

Zeige doch mal bitte das komplette OnCreate-Event.

Ich habe das ganze in ein neues Projekt getestet. es ging perfekt
Das heißt es liegt an meine Codes in OnCreate

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
if (not(ParamCount=0)) and (AnsiLowerCase(ExtractFileExt(ParamStr(1)))='.bmp') then begin
picturepath:=ParamStr(1);
//timer1.enabled:=true;
Image1.picture.Bitmap.loadfromfile(paramStr(1));
end;
end;

In OnCreate in meinem Programm ist voller Codes, darum funktioniert nicht