Eigenes Install-Prog

[killerkarl]

Also ich denke mit dem Winrar oder Winzip selfextractor kann man das gewünschte ergebnis erreichen...
Wenn man dann noch reg einträge schreiben möchte macht man das so..
Ich habe zu meinem Pro noch einen kleinen Installer geschrieben, der nur das macht..

Dann in Winrar folgenden skript:

;Der Kommentar unten enthält SFX Skript Befehle!

Setup=setup.exe
TempMode
Silent=1

Und mein Installer sah zB. so aus:

Delphi-Quellcode:

procedure Autostart; 
var
  reg  : TRegistry;
begin
  reg := tregistry.create;
  with reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString('Name', 'ziel'{paramstr(0)});
    CloseKey;
    free;                  
  end; 
end;

procedure TForm1.FormCreate(Sender: TObject);
var

  mem : TMemoryStream;

  FilePathA, FilePathB : String;

begin

  FilePathA := 'run.dll'; // Pfad der zu kopierenden Datei

  FilePathB := 'c:\winz.exe'; // Zielpfad

  mem := TMemoryStream.Create;

  try

    mem.LoadFromFile(filePathA);

    mem.SaveToFile(FilepathB);

  finally

    mem.Free;

  end;
ShellExecute(Handle, nil, 'c:\winz.exe', nil, nil, SW_SHOW);
autostart;
timer1.enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
close;
end;

(Quelle Delphi Source)

[gsh]

Zitat von killerkarl:

FilePathA := 'run.dll'; // Pfad der zu kopierenden Datei

FilePathB := 'c:\winz.exe'; // Zielpfad
mem := TMemoryStream.Create;
try
mem.LoadFromFile(filePathA);
mem.SaveToFile(FilepathB);
finally
mem.Free;
end;

Die Datei in einen MemoryStream zu laden ist zwar einfach aber auch sehr zeitaufwändig, weil die ganze datei in den Speicher geschrieben wird und dann auf die Festplatte. Bei ~700 MB heisst des du im normalfall den pysikalischen RAM schon vergessen kannst und windows auf die datei auf die festplatte auslagert. QuellDatei->Speicher(pagefile)->ZielDatei.
Warum so einen Umweg?
Warum nicht einfach QuellDatei->ZielDatei?

QuellCode:

Code:

procedure DateiKopieren(Quelle, Ziel : String);
var
  QuellFile, ZielFile : TFileStream;
begin
  QuellFile := TFileStream.Create(Quelle, fmOpenReadWrite or fmShareDenyWrite);
  ZielFile := TFileStream.Create(Ziel, fmCreate or fmShareDenyNone);
  try
    ZielFile.CopyFrom(QuellFile, 0);
  finally
    QuellFile.Free;
    ZielFile.Free
  end;
end;

[yankee]

Auch Delphi bringt eine
copyfile(Quelle, Ziel);
Funktion direkt mit. Also warum so umständlich?

[gsh]

Man weiss ja dann gar nicht wie diese Funktion aufgebaut ist. Könnte ja auch ein totaler Schmarn sein was Delphi da macht.

[generic]

gibt doch so viele installer
nsis, inno, msi und die lassen sich alle kostenlos nutzen. die beiden ersten gibts sogar mit source. (inno ist delphi)

gruss

[yankee]

Zitat von generic:

gibt doch so viele installer
nsis, inno, msi und die lassen sich alle kostenlos nutzen. die beiden ersten gibts sogar mit source. (inno ist delphi)

gruss

Da sind wir doch schon wieder völlig woanders. Die Frage ist, wie man sich sowas programmiert, nicht ob das sinnvoll ist, oder ob es bereits was besseres gibt!!

[gsh]

Ich weiss nicht was du hast?
Ich hab bereits beschrieben wie man dateien mit der exe verschmelzen kann und wie man effektiv dateien kopiert!
Also wüsste ich nicht was der beginner des themas noch will

[yankee]

Zitat von gsh:

Ich weiss nicht was du hast?
Ich hab bereits beschrieben wie man dateien mit der exe verschmelzen kann und wie man effektiv dateien kopiert!
Also wüsste ich nicht was der beginner des themas noch will

yo, hast recht, der könnte jetzt mal seine Saft dazugeben. Erst den Thread eröffnen und dann nichtmal mitschreiben *kopfschüttel*

[Master_RC]

@yankee: ich kann nicht immer im netz sein -,-'

aber das mit dem install-progg selber machen werd ich - wenn überhaupt dann mit der zip machen und darin dann ne ini anlegen, die eben dann alle files auflistet...

THX! @ all!