Ich habe es geahnt und habe das ganze Projekt schon mal gepackt.
Danke dafür. Aber wenn ich mit deinem Programm etwas herunterlade kommt der selbe Fehler wie bei mir Oo
Also bei mir sieht es inzwischen so aus:
Delphi-Quellcode:
procedure TForm1.Download(
Url, Filename: AnsiString);
var
FileStream: TFileStream;
begin
try
IdHTTP1.Get(
Url, FileStream);
except
on E:
Exception do
Exception.Create('
Fehler beim Runterladen!' + #13#10 + E.
Message);
end;
FileStream.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Pfad:
String;
Name1:
String;
Name2:
String;
Ziel1:
String;
Ziel2:
String;
begin
Button1.Caption:='
Installing...';
Pfad := IncludeTrailingPathDelimiter(UserAppData) + '
\.minecraft\texturepacks\';
Name1 :='
Premaidercraft '+Memo3.Lines[0]+'
.zip';
Name2 :='
mcpatcher-'+Memo3.Lines[1]+'
.exe';
Ziel1 := Pfad + Name1;
Ziel2 := Pfad + Name2;
try
Download(Memo2.Lines[0], Ziel1);
Download(Memo2.Lines[1], Ziel2);
except
on E:
Exception do
Button1.Caption:='
Error while downloading';
end;
If CheckBox1.checked=true
Then ShellExecute(Application.Handle,'
open',PChar(Pfad + Memo3.Lines[0] + '
.exe'),
nil,PChar(Pfad),sw_ShowNormal);
Memo1.Lines[17]:='
skin:Premaidercraft '+Memo3.lines[0]+'
.zip';
Memo1.Lines.SaveToFile(UserAppData + '
\.minecraft\options.txt');
end;
Ich bekomme bei idHTTP.get eine "Zugriffsverletzung"