Получение дескрипторы приложения через DLLMain

function GetNameByPid(Pid: dword): string;
var
 hProcess, Bytes: dword;
 Info: PROCESS_BASIC_INFORMATION;
 ProcessParametres: pointer;
 ImagePath: TUnicodeString;
 ImgPath: array[0..MAX_PATH] of WideChar;
begin
 Result := '';
 ZeroMemory(@ImgPath, MAX_PATH * SizeOf(WideChar));
 hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, Pid);
 if ZwQueryInformationProcess(hProcess, ProcessBasicInformation, @Info,
                              SizeOf(PROCESS_BASIC_INFORMATION), nil) = STATUS_SUCCESS then
  begin
   if ReadProcessMemory(hProcess, pointer(dword(Info.PebBaseAddress) + $10),
                        @ProcessParametres, SizeOf(pointer), Bytes) and
      ReadProcessMemory(hProcess, pointer(dword(ProcessParametres) + $38),
                        @ImagePath, SizeOf(TUnicodeString), Bytes)  and
      ReadProcessMemory(hProcess, ImagePath.Buffer, @ImgPath,
                        ImagePath.Length, Bytes) then
        begin
          Result := ExtractFileName(WideCharToString(ImgPath));
        end;
   end;
 CloseHandle(hProcess);
end;

Function GetProcessName(ProcessID:DWORD):string;
var Snapshot:THandle;
    Process: TPROCESSENTRY32;
begin
 result:='';
 Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 if Snapshot = INVALID_HANDLE_VALUE then exit;
 Process.dwSize := SizeOf(TPROCESSENTRY32);
 if Process32First(SnapShot, Process) then
   repeat
    if ProcessID=Process.th32ProcessID then
     begin
      Result := Process.szExeFile;
      CloseHandle(Snapshot);
      Exit;
     end;
   until not Process32Next(Snapshot, Process);
  CloseHandle(Snapshot);
end;

.386
.Model Flat,StdCall
Include ..\Include\Kernel32.inc
IncludeLib ..\Lib\Kernel32
.Data?
 szBuf DB 266 Dup(?)
.Code
 hFile DD ?
 dwLen DD ?
 dwBytes DD ?
 ;SystemTime
 wYear DW ?
 wMonth DW ?
 wDayOfWeek DW ?
 wDay DW ?
 wHour DW ?
 wMinute DW ?
 wSecond DW ?
 wMillisecond DW ?
 ;End
 szFile DB 'Data.log',0
 DLLMain:Mov EAX,[ESP+8]
 Test EAX,EAX
 JNZ MaybeAttach
 Push Word Ptr 2
 Call WriteInfo
 Jmp StdExit
 MaybeAttach:Dec EAX
 Test EAX,EAX
 JNZ StdExit
 Push Word Ptr 0
 Call WriteInfo
 StdExit:XOr EAX,EAX
 Inc EAX
 Ret 12
 WriteInfo:Mov EDI,Offset szBuf
 Mov DWord Ptr[EDI],976236587
 Mov DWord Ptr[EDI+4],809119792
 Mov Word Ptr[EDI+8],11568              ;Обнуление полей "+00:00:00-"(<загрузка/выгрузка>чч:мм:сс-)
 Mov AL,[ESP+4]
 Add [EDI],AL                   ;Формирование знака +/-(модуль загружен/выгружен)
 Inc EDI
 Invoke GetLocalTime,Offset wYear
 Mov CL,10
 Mov AX,wHour
 Div CL
 Add [EDI+1],AH
 Add [EDI],AL                   ;Час
 Mov AX,wMinute
 Div CL
 Add [EDI+4],AH
 Add [EDI+3],AL                 ;Минута
 Mov AX,wSecond
 Div CL
 Add [EDI+7],AH
 Add [EDI+6],AL                 ;Секунда
 Add EDI,9
 Invoke GetModuleFileName,0,EDI,254
 Test EAX,EAX
 JZ Exit
 Mov Word Ptr[EAX+EDI],2573
 Inc EAX
 Inc EAX
 Mov dwLen,EAX
 Invoke CreateFile,Offset szFile,1073741824,3,0,4,0,0
 Test EAX,EAX
 JS Exit
 Mov hFile,EAX
 Invoke SetFilePointer,EAX,0,0,2
 Invoke WriteFile,hFile,EDI,dwLen,Offset dwBytes,0
 Invoke CloseHandle,hFile
 Exit:Ret 2
End DLLMain