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

[thomas2009]

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