Hooh api

[Stilet]

Таких методов нет. Однако если хочешь защититься от назойливого пользователя, можно попробовать настроить политику безопасности, запретив ему вход в каталог с записываемым файлом, однако дать доступ к этому файлу на запись (программа напрямую будет к файлу обращаться и писать, а пользователь хоть и имеет возможность в него писать но не зайдет в него).
Я же сказал - нужно знать механизм твоей программы чтоб точно сказать что проще.

[Maincore]

Да а как тогда можно определить с какими файлами программа работает в данный момент.

Stilet,а почему вы против хуков?

[Stilet]

как тогда можно определить с какими файлами программа работает в данный момент.

Дай бог памяти... Кажись через PsAPI можно получить хендлы открытых файлов. Я давно этим не занимался, навскидку так не помню уже.

Вот из своей коллекции что выдернуть могу:

  function GetHandlesFileFromPID(PID:cardinal=MAXDWORD):string;
var SystemInformation: PSYSTEM_PROCESS_INFORMATION;
  pHandleInfo: PSYSTEM_HANDLE_INFORMATION_EX;
b:byte;  i:integer;    s:String;
cp,hp:Cardinal;hFile: THandle;
begin
 b:=GetFileHandleType;
SystemInformation:= GetInfoTable(5);
  if SystemInformation <> nil then
    pHandleInfo := GetInfoTable(16);
for I := 0 to pHandleInfo^.NumberOfHandles - 1 do
      begin
        if pHandleInfo^.Information[I].ObjectTypeNumber = b then
        begin
          hP := OpenProcess(PROCESS_DUP_HANDLE, True,
            pHandleInfo^.Information[I].ProcessId);
          if hP > 0 then
          try
            if DuplicateHandle(hP, pHandleInfo^.Information[I].Handle,
              GetCurrentProcess, @hFile, 0, False, DUPLICATE_SAME_ACCESS) then
            try
              if Application.Terminated then Exit;
              s := GetFileNameFromHandle(hFile);
//              caption:=IntToStr(cp);
             if (trim(s)<>'')and(pHandleInfo^.Information[I].ProcessId=PID)or(PID=MAXDWORD) then
               result:=result+({inttostr(pHandleInfo^.Information[I].ProcessId)+' '+}s)
               +#10#13;
            finally
              CloseHandle(hFile);
            end;
          finally
            CloseHandle(hP);
          end;
        end;
        Application.ProcessMessages;
      end;
end;

И к ней

  function GetInfoTable(ATableType: DWORD): Pointer;
   const STATUS_INFO_LENGTH_MISMATCH = NT_STATUS($C0000004);
   var
     dwSize: DWORD;
     pPtr: Pointer;
     ntStatus: NT_STATUS;
   begin
     Result := nil;
     dwSize := WORD(-1);
     GetMem(pPtr, dwSize);
     ntStatus := ZwQuerySystemInformation(ATableType, pPtr, dwSize, nil);
     while ntStatus = STATUS_INFO_LENGTH_MISMATCH do
     begin
       dwSize := dwSize * 2;
       ReallocMem(pPtr, dwSize);
       ntStatus := ZwQuerySystemInformation(ATableType, pPtr, dwSize, nil);
     end;
     if ntStatus = NT_STATUS($00000000){STATUS_SUCCESS} then
       Result := pPtr
     else
       FreeMem(pPtr);
   end;

function GetFileNameFromHandle(hFile: THandle): String;
  var
    lpExitCode: DWORD;
    pThreadParam: TGetFileNameThreadParam;
    hThread: THandle;
  begin
    Result := '';
    ZeroMemory(@pThreadParam, SizeOf(TGetFileNameThreadParam));
    pThreadParam.hFile := hFile;
    hThread := CreateThread(nil, 0, @GetFileNameThread, @pThreadParam, 0, PDWORD(nil)^);
    if hThread <> 0 then
    try
      case WaitForSingleObject(hThread, 100) of
        WAIT_OBJECT_0:
        begin
          GetExitCodeThread(hThread, lpExitCode);
          if lpExitCode = NT_STATUS($00000000){STATUS_SUCCESS} then
            Result := pThreadParam.Data;
        end;
        WAIT_TIMEOUT:
          TerminateThread(hThread, 0);
      end;
    finally
      CloseHandle(hThread);
    end;
  end;

а почему вы против хуков?

Я ж сказал - дырка это в системе безопасности.