Как различить два процесса одного приложения?

[viter.alex]

Подскажите как можно различить два процесса одного класса. Например, Word имеет класс Word.Application. Если пользователь запустит свой word, а я из программы — свой, то они будут иметь различных родителей: у моего будет svchost.exe, а у пользовательского — тот, из которого он его запустил, например, explorer.exe. Вот мне нужно их различить. Какой процесс запустил я, а какой — пользователь. К сожалению, в Delphi не силен, но постараюсь перевести на понятный мне Visual Basic.
Я нашел две функции:

Private Declare Function GetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long
Private Declare Function GetHandleInformation Lib "kernel32" Alias "GetHandleInformation" (ByVal hObject As Long, lpdwFlags As Long) As Long

Объявлены они на VB, но думаю, что это большого значения не имеет.

[rpy3uH]

получить ID родителя процесса

type
  PROCESS_BASIC_INFORMATION = packed record
    ExitStatus: DWORD;
    PebBaseAddress: Pointer;
    AffinityMask: DWORD;
    BasePriority: DWORD;
    uUniqueProcessId: Ulong;
    uInheritedFromUniqueProcessId: Ulong;
  end;

function  NtQueryInformationProcess(
    ProcessHandle : THandle;
    ProcessInformationClass : Byte;
    ProcessInformation : Pointer;
    ProcessInformationLength : ULONG;
    ReturnLength : PULONG
  ): DWORD; stdcall; external 'ntdll.dll';

function GetOwnedProcessID(const dwProcessHandle: DWORD): DWORD;
const
  ProcessBasicInformation = 0;
var
  Info: PROCESS_BASIC_INFORMATION;
begin
  Result := 0;
  if NtQueryInformationProcess(dwProcessHandle,
    ProcessBasicInformation, @Info, SizeOf(Info), nil) = NO_ERROR then
    Result := Info.uInheritedFromUniqueProcessId;
end;