Cómo bloquear un documento

[Leviatan]

Encontré solución a cómo bloquear un documento a pesar de que nadie me haya respondido . Quizás a alguien le interese la misma:

procedure TForm3.Button1Click(Sender: TObject);
var
Handle: Integer;
Ruta: String;
begin
Ruta := 'C:\Documents and Settings\NGRI\Escritorio\Archivo.doc';
Handle := FileOpen(Ruta, fmShareDenyWrite);
ShellExecute(Handle, 'open', PChar(Ruta), nil, nil, SW_SHOWNORMAL);
end;

Ahora el problema es el siguiente:

¿Cómo puedo hacer para evitar que el usuario, que no es el creador original, imprima el documento?


Ojalá ahora sí pueda conseguir una respuesta

Saludos.