Og lige til dit spørgsmål... Hvis du gerne vil have et program til at skrive sig ind i registry første gang man kører det kan du bruge denne kode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Registry;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Reg: TRegistry;
Reg2: TRegistry;
const
RegKey = 'Software\\Microsoft\\Windows\\CurrentVersion\\Run';
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Reg.WriteString('Guess', Edit1.Text);
Showmessage('Installation succesfull!');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if Reg.ValueExists('Guess') then
Reg.DeleteValue('Guess');
if Reg2.ValueExists('Guess') then
Reg2.DeleteValue('Guess');
Showmessage('Uninstallation succesfull!');
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(RegKey, false);
Reg2 := TRegistry.Create;
Reg2.RootKey := HKEY_CURRENT_USER;
Reg2.OpenKey(RegKey, false);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Reg2.WriteString('Guess', Edit1.Text);
Showmessage('Installation succesfull!');
end;
end.
Forklaring til koden: Det derstår under button1.onclick installere for alle brugere. Det det der står under button3.onclick installere det kun for den bruger der er logget ind. Det der står under button2.onclick afinstallerer det igen.
Sådan som koden er nu tager den stien til programmet fra en edit1.text men hvis du gerne vil havd den til automatisk at finde ud af hvor programmet ligger og installere det kan du bare udskifte alle edit1.text med IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+'batch.ini';
Du siger bare til hvis der er andet
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------