OnAfterGet ist ein Eventbehandlungsroutine:
Erweitere TfrmMain umd die Methode
procedure AfterGet(ASender: TObject; AStream: TStream);
Weise diese der EventProperty zu
ftp.onAfterGet := AfterGet;
in ihr rufe dann die Datei auf
Delphi-Quellcode:
procedure TfrmMain.AfterGet(ASender: TObject; AStream: TStream)
begin
ShellExecute(Application.Handle, 'open', PChar('D:\Sonstiges\Mhl.exe'), nil, nil, SW_SHOWNORMAL);
end;