.zip-Archiv in bestimmtes Archiv herunterladen

[DeddyH]

Du hast schon bemerkt, dass wir auf die Suche verlinkt haben? Da gibt es reichlich Beispiele, IIRC sogar eins mit Fortschrittsanzeige.

[Premaider]

Auf meinen Edit achten ^^

[Bummi]

Auf DeddyH's Posting #2 achten ...

[Premaider]

Könntet ihr mir vllt ein beispiel geben wie ich SHGetFolderPath mit dem was ich bis jetzt habe verknüpfen muss ?

[DeddyH]

Versuch mal, ob das passt:

Delphi-Quellcode:

uses SHFolder;

function SpecialFolder(CSIDL: integer): string;
const
  SHGFP_TYPE_CURRENT = 1;
begin
  SetLength(Result, MAX_PATH);
  SHGetFolderPath(0, CSIDL, 0, SHGFP_TYPE_CURRENT, PChar(Result));
  SetLength(Result, StrLen(PChar(Result)));
end;

function UserAppData: string;
begin
  Result := SpecialFolder(CSIDL_APPDATA);
end;

[Premaider]

Zitat von DeddyH:

Versuch mal, ob das passt:

Delphi-Quellcode:

uses SHFolder;

function SpecialFolder(CSIDL: integer): string;
const
  SHGFP_TYPE_CURRENT = 1;
begin
  SetLength(Result, MAX_PATH);
  SHGetFolderPath(0, CSIDL, 0, SHGFP_TYPE_CURRENT, PChar(Result));
  SetLength(Result, StrLen(PChar(Result)));
end;

function UserAppData: string;
begin
  Result := SpecialFolder(CSIDL_APPDATA);
end;

Wohin geht der jetzt ? Nur zu Appdata ? Und was ist jetzt das "Ergebnis" das ich als Programmpfad angeben muss. Sorry klingt vllt ein bisschen "dumm" aber ich bin ein ziemlicher Anfänger.

[s.h.a.r.k]

[klugscheiss_mode_on]
Auch, wenn es nichts mit dem Thema zu tun hat, aber das Ding nennt sich Archiv und nicht Archiev
[/klugscheiss_mode_on]

[himitsu]

Zitat von DeddyH:

Delphi-Quellcode:

function UserAppData: string;
begin
  Result := SpecialFolder(CSIDL_APPDATA);
end;

Unit SysUtils:
GetHomePath (das entspricht dem CSIDL_APPDATA, unter Windows ... im Linux ist es die Environmentvariable HOME und Mac weiß ich jetzt nicht)

Unit IOUtils:
TPath.GetTempPath
TPath.GetHomePath