Datei kann nicht erstellt werden! - Registry

Nohh

Erfahrenes Mitglied
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 :()
Code:
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
 
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.
 
Zurück