Error 1411 Ayudenme :(
 

:(
Hola haber porque me da error este trozo de código el error 1411,si no es molestia echarle un vistazo y de paso si podeis una mano.



Como datos digo que Utilizo el WindowsXP Profesional y Delphi 5



uses
Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if not Reg.SaveKey ( 'Software\Borland\Delphi', 'C:\Delphi.REG' ) Then
RaiseLastWin32Error;
finally
Reg.Free;
end;
end;


Delphi.com.ar Tu no sabras porque no funciona??

Sinceramente a mi me funcionó perfectamente, sinó no te lo hubiera pasado.
Yo lo probé en un Win98, desconozco si cambió algo en XP, pero te comento que según la documentación de las APIs que utiliza este método, tendrían que funcionar por lo menos en WinNT, y en Delphi 7, que ya soporta Windows XP, utiliza el mismo código en esos métodos.

¿Te fijaste que existan en tu registro los keys que intenta guardar el código?

[Warning]
 

Intente realizarlo en Win 2k Pro y no funciono.



Primero :[Warning] Unit1.pas(34): Symbol 'RaiseLastWin32Error' is deprecated

Después : A CALL to an OS function failed

Una LLAMADA a una función de OS fallada



Quise Ayudar, lo siento

En Delphi 6 en adelante, hay una función llamada RaiseLastOsError o similar que sustituye a la función RaiseLastWin32Error que esta mas atada a la plataforma Win32, se supone que la nueva la puedes llamar tanto en Linux como en Windows.

¿El resto de los errores te los da en tiempo de complilación o al ejecutar el proyecto?

Y con el usuario que corres el programa podes ejecutar esa misma acción, digamos desde el regedit?

Puede ser una cuestión de permisos...

Hasta luego.

;)

Hola,

Informo que acabo de ejecutar el código anteriormente mencionado y RaiseLastOSError dice: "A call to an OS function failed" pero esto simplemente significa que no ocurrió ningún error (ErrorCode = 0) así que inocentemente pregunto a Periyo: ¿revisaste C:\ para ver si se creó el archivo?

// Saludos