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

[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