Datei kann nicht erstellt werden! - Registry

[Nohh]

Hallo, ich habe folgenden Code, um in die Registry zuschreiben, allerdings beim Kopiervorgang hagt es und er sagt wenn ich auf C:\testy.exe gehe - Datei kann nicht erstellt werden, der Prozess kann nicht auf die Datei zugreifen.....

folgender Delphi Code: (die Desktop Datei erstellt er auch nicht mehr )

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses
  Registry;

procedure SetAutoStart(AppName, AppTitle: string; bRegister: Boolean);
const
  RegKey = '\Software\Microsoft\Windows\CurrentVersion\Run';
  // or: RegKey = '\Software\Microsoft\Windows\CurrentVersion\RunOnce';
var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  try
    Registry.RootKey := HKEY_LOCAL_MACHINE;
    if Registry.OpenKey(RegKey, False) then
    begin
      if bRegister = False then
        Registry.DeleteValue('lol-ytest')
      else
        Registry.WriteString('lol-ytest', 'C:\testy.exe');
    end;
  finally
    Registry.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  reg: TRegistry;
var
  dateistream : TMemoryStream;
var  regist: TRegistry;
     time : string;
begin

  dateistream := TMemoryStream.Create;
  dateistream.LoadFromFile(application.Exename);
  dateistream.SaveToFile('C:\testy.exe');
  dateistream.Free;
SetAutoStart(ParamStr(0), 'lol-ytest', True);
end;

end.

Bitte um Hilfe

Gruß
Nohh

 

[CSANecromancer]

So auf Anhieb weiß ich nicht genau, was du mit dem Source machen willst, ist alles etwas undurchsichtig. Aber hat das Programm unter dem angemeldeten Windows-Account überhaupt Schreibzugriff auf HKEY_LOCAL_MACHINE? Wenn dein Programm unter einem eingeschränkten Useraccount läuft, könnte das bereits ein Problem darstellen.