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.