Drucken mit ShellExecuteEx - Eigenes Programm wird träge

[Christian Seehase]

Moin Armin,

hier einmal ein, sehr einfaches, Beispiel zu TThread:

Delphi-Quellcode:

type
  TcsDownloadThread = class(TThread)
  private
    FsSource : string;
    FsDest   : string;
  public
    constructor Create(const AsSource : string; const AsDest : string);
    procedure Execute; override;
  end;

constructor TcsDownloadThread.Create(const AsSource, AsDest: string);
begin
  FsSource        := AsSource;
  FsDest          := AsDest;
  FreeOnTerminate := true; // Thread freigeben, wenn beendet
  inherited Create(false); // False = sofort starten
end;

procedure TcsDownloadThread.Execute;
begin
  URLDownLoadToFile(nil,PChar(FsSource),PChar(FsDest),0,nil); // Datei herunterladen
  Terminate; // dann beenden
end;