Thema: Delphi Eigenes Install-Prog

Einzelnen Beitrag anzeigen

killerkarl

Registriert seit: 19. Jan 2005
40 Beiträge
 
Delphi 7 Personal
 
#11

Re: Eigenes Install-Prog

  Alt 20. Jan 2005, 15:45
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)
  Mit Zitat antworten Zitat