Datei downloaden (mit Fortschrittsanzeige)

  • Icewarez schrieb:

    Erst mal in den Uses UrlMon und ActiveX hinzuf?gen:


    Code
    1. uses
    2. UrlMon, ActiveX;


    Icewarez schrieb:

    Dann wird folgender Typ deklariert:





    Icewarez schrieb:

    Dann brauchen wir noch eine Variable:



    Code
    1. var
    2. Form1: TForm1;
    3. usercancel: Boolean = False;




    Icewarez schrieb:

    Jetzt kommen wir zur Implementation:






    Icewarez schrieb:

    Und zu guter Letzt kommen wir zum Herunterladen: