文件解锁定.doc

/questionsget-unicode-filenames-used-by-a-process-using-ntquerysysteminformation-ntqueryin Seeing a question mark for any non-ASCII character is the hallmark of an attempt to convert from Unicode to ANSI. thisfunction: function GetFileNameHandleThr(Data:Pointer):DWORD; stdcall; var dwReturn:DWORD; FileNameInfo:FILE_NAME_INFORMATION; ObjectNameInfo:TOBJECT_NAME_INFORMATION; IoStatusBlock:IO_STATUS_BLOCK; pThreadParam:TGetFileNameThreadParam; begin ZeroMemory(@FileNameInfo, SizeOf(FILE_NAME_INFORMATION)); pThreadParam:=PGetFileNameThreadParam(Data)^; Result:=NtQueryInformationFile(pThreadParam.hFile, @IoStatusBlock, @FileNameInfo, MAX_PATH*2, FileNameInformation); if Result=STATUS_SUCCESS then begin Result:=NtQueryObject(pThreadParam.hFile, ObjectNameInformation, @ObjectNameInfo, MAX_PATH*2, @dwReturn); if Result=STATUS_SUCCESS then begin pThreadParam.Result:=Result; WideCharToMultiByte(CP_ACP, 0, @ObjectNameInfo.Name.Buffer[ObjectNameInfo.Name.MaximumLength-ObjectNameInfo.Name.Length], ObjectNameInfo.Name.Length, @pThreadParam.FileName[0], MAX_PATH, nil, nil); end else begin pThreadParam.Result:=STATUS_SUCCESS; Result:=STATUS_SUCCESS; WideCharToMultiByte(CP_ACP, 0, @FileNameInfo.FileName[0], IoStatusBlock.Information, @pThreadParam.FileName[0], MAX_PATH, nil, nil); end; end; PGetFileNameThreadParam(Data)^:=pThreadParam; ExitThread(Result); end; This converts from Unicode to ANSI in the calls to WideCharToMultiByte.You simply need to remove that part of the code. Youll need to modify this record TGetFileNameThreadParam=packed record hFile:THandle; Result:NT_STATUS; FileName:array[0..MAX_PATH-1] of AnsiChar; end; so that FileName is an array of WideChar. TGetFileNameThreadParam=packed record hFile:THandle; Result:NT_STATUS; FileName:array[0..MAX_PATH-1] of WideChar; end; and then adapt GetFileNameHandleThr accordingly.Ive not studied it in detail, but I expect you need someth