nemme point

hvad er dit problem ??

beskriv lidt nærmere hvad du vil have at vide

/SpEeDy

uses registry;

var
reg : Treginifile; <-- her kommer en fejl når jeg vil teste programmet
begin
Reg:=TReginifile.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  reg.WriteString(\'Control Panel\\Desktop\',\'Wallpaper\',\'c:\\sol.bmp\');
  reg.free;

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );

Husk som der står i toppen at tilføje registry i uses sektionen.

og så put dette på f.eks. en knaps onClick:

procedure TForm1.Button1Click(Sender: TObject);
var
  reg : Treginifile;
begin
  Reg:=TReginifile.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  reg.WriteString(\'Control Panel\\Desktop\',\'Wallpaper\',\'c:\\sol.bmp\');
  reg.free;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
end;


/SpEedy

har jeg gjort

hmm...det virker hos mig...

kan du ikke sende dit projekt til mig på rasmusm@mailme.dk  eller lægge det til download et sted...så vil jeg kigge på det...

Du kan også poste det her hvis det kun er det programmet indeholder endnu :)

/SpEeDy

Prøv med:
<SNIP>
uses registry;

var
  reg : TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey(\'Control Panel\\Desktop\', True);
    Reg.WriteString(\'Wallpaper\', \'c:\\sol.bmp\'
    Reg.CloseKey;
  finally
    Reg.free;
  end;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
end;
</SNIP>

virker ikke her