Program schließen

[Remote1]

ich hab mir ne kleine diashow programmiert und ins kontextmenü mit eingebunden (bei 2000 krieg ich immer ned fehler failed to set data to " , kann mir da noch mal jemand helfen)

wenn ich auf nen ordner rechte maustaste klicke--> diashow, wird erstmal geschaut ob da überhaupt bilder im ordner sind
wenn nicht, kommt ein application.messagebox, dass keine bilder im ordner sind, und das prog schließt sich wieder

nun ahb ich das mit
application.terminate; gemacht und das prog schließt sich auch im oncreate, aber es blinkt kurz auf (ist natürlich unschön)

hier noch aml die einbindung ins kontextmenü wegen (Win2000)

Delphi-Quellcode:

 if Form4.kontext.Checked
    then
     begin
       try
        reg:=tregistry.Create;
        reg.RootKey:=HKEY_CLASSES_ROOT;
        reg.OpenKey('Folder\shell\Diashow\command',true);
        reg.WriteString('',extractfilepath(application.ExeName)+extractfilename(application.ExeName)+' %1');
       finally
       reg.Free;
       end;
     end
    else
     begin
       try
        reg:=tregistry.Create;
        reg.RootKey:=HKEY_CLASSES_ROOT;
        reg.OpenKey('Folder\shell\',false);
        if reg.KeyExists('Diashow') then reg.DeleteKey('Diashow');
       finally
       reg.Free;
       end;
     end;
finally
 ini.Free;
end;

davor kommt natürlich noch alle var,uses registry...