Encuentro varios problemas en tu código, te voy comentando:
Trabajando con el API de Windows y sus errores
OpenPrinter
es una función que devuelve un booleano indicando si fue exitosa o no y tu rutina no verifica esa salida.
- De manera similar
GetPrinter
y SetPrinter
son funciones que devuelven un booleano indicando si tuvieron éxito o no.
- La mecánica del API de Windows, cuando una llamada falla, es llamar a la función
GetLastError
y luego a FormatMessage
para obtener información del último error que ha ocurrido.
- La RTL de Delphi nos provee la función
RaiseLastOSError
que se encarga de realizar estos pasos con el API y eleva una excepción con la información del error.
Manejo de excepciones y leaks.
- La rutina tiene un bloque
try
/except
que se come cualquier error que ocurra dentro de ella, sin registro, sin explicación. Una mala práctica.
- Se reserva memoria con la función
AllocMem
, pero si ocurriera un error entre esta y la llamada a FreeMem
, la memoria no se liberaría, provocando un memory leak
- Si
OpenPrinter
es exitosa, debe llamarse a ClosePrinter
, de otra forma el programa provocará un handle leak.
Por qué no cambia el nombre de la impresora
Si si, todos los problemas anteriores pueden estar, pero ¿por qué no cambia el #$%& nombre?
- El problema principal es que, para obtener un Handle que pueda utilizarse para llamar a
SetPrinter
, hay que pasar el último parámetro a la función OpenPrinter
, solicitando accesos elevados. (PRINTER_ALL_ACCESS
)1
- Esto, a su vez, requerirá que tu proceso se encuentre elevado, de otra forma obtendrá un error
E_ACCESS_DENIED
.
Ahora, la parte filosófica
- La función tiene una serie de comenarios que son realmente superfluos, en mi opinión, esto no añade valor, por lo que los quito.
- Finalmente, no veo por qué tener esto en una función, en realidad yo declararía un procedimiento. El contrato es que el procedimiento tiene éxito cambiando el nombre, o eleva una excepción, por lo que no hace falta evaluar ningún resultado al final.
El resultado de poner todas las correcciones a lo ya dicho, sería algo como esto:
procedure RenombrarImpresora(ANombreActual, ANombreNuevo : string);
var
lHandle: THandle;
lpPrinterInfo: PPrinterInfo2;
lPrinterDefault: TPrinterDefaults;
lSize: DWORD;
begin
lPrinterDefault.pDatatype := nil;
lPrinterDefault.pDevMode := nil;
lPrinterDefault.DesiredAccess := PRINTER_ALL_ACCESS;
if OpenPrinter(PChar(ANombreActual), lHandle, @lPrinterDefault) then
begin
try
lSize := 0;
//esta primera llamada es solo para obtener el tamaño del buffer, ignoramos la salida
GetPrinter(lHandle, 2, nil, lSize, @lSize);
lpPrinterInfo := AllocMem(lSize);
try
if not GetPrinter(lHandle, 2, lpPrinterInfo, lSize, @lSize) then
RaiseLastOSError;
lpPrinterInfo.pPrinterName := PChar(ANombreNuevo);
if not SetPrinter(lHandle, 2, lpPrinterInfo, 0) then
RaiseLastOSError;
finally
FreeMem(lpPrinterInfo);
end;
finally
ClosePrinter(lHandle);
end;
end
else
RaiseLastOSError;
end;
1: Una anécdota, es que esta parte me llevó demasiado tiempo... en mi humilde opinión, la documentación no es clara, dice que hay que abrir la impresora con PRINTER_ACCESS_ADMINISTER
si se va a llamar a SetPrinter
, pero esto, en Windows 10, siempre me devolvió acceso denegado. Fue hasta que probé con PRINTER_ALL_ACCESS
(que incluye al primero) que tuve éxito. Si alguien sabe la explicación, la agradezco.