Hasta ahora llevo esto
Código Delphi
[-]
procedure TLocal.FormShow(Sender: TObject);
var i:integer;
begin
ComboBox1.Clear;
for i:=0 to FileListBox1.Items.Count-1 do
begin
ComboBox1.Items.Add(FileListBox1.Items.Strings[i]);
end;
ComboBox1.ItemIndex:=0;
Edit1.Text:=GetWallpaperBitmap(); abfImage1.Picture.LoadFromFile(Edit1.Text);
end;
y esto
Código Delphi
[-]
procedure TLocal.dxButton11Click(Sender: TObject);
var exten,root : string;
begin
root:=ExtractFilePath(Application.ExeName);
abfImage1.Picture.LoadFromFile('C:\WINDOWS\Web\Wallpaper\'+ComboBox1.Text);
exten:=ExtractFileExt(ComboBox1.Text);
if (exten='JPG') then SetWallpaper('C:\WINDOWS\Web\Wallpaper\'+ComboBox1.Text,root+'temp\nuevo.bmp');
Local.OnShow(self);
end;
Me sigue dejando el que estaba, chequié el registro de windows, y la clave permanece sin ser alterada.
No doy con la tecla
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;