DuplicateHandle помогите разобраться с параметрами

[firstoxe]

Нужно выполнить задание:
1. Используя функцию GetCurrentProcessId определяет идентификатор текущего процесса.
2. Используя функцию GetCurrentProcess определяет псевдодескриптор текущего процесса.
3. Используя функцию DuplicateHandle и значение псевдодескриптора определяет дескриптора текущего процесса.
4. Используя функцию OpenProcess определяет копию дескриптора текущего процесса.
5. Закрывает дескриптор, полученный функцией DuplicateHandl.
6. Закрывает дескриптор, полученный функцией OpenProcess.

procedure TForm1.NxButton62Click(Sender: TObject);
var
HWnd :Phandle;
HWnd1: Thandle;
begin
   HWnd1 :=GetCurrentProcessID;

  NxMemo61.Lines.Add('идентификатор текущего процесса: ' +
    GetCurrentProcessId.ToString);
  NxMemo61.Lines.Add('псевдодескриптор текущего процесса: ' +
    GetCurrentProcess.ToString);
  NxMemo61.Lines.Add('псевдодескриптор текущего процесса: ' +
    DuplicateHandle(HWnd1,HWnd1,HWnd1, HWnd , 0, false, DUPLICATE_SAME_ACCESS).ToString);
end;

Но славливаю ошибку, DuplicateHandle = 0 и бесконечное всплывающее окно

Смотрю аналогичный код на си, и там всё работает...

[p51x]

Phandle - указатель. Память под переменную для хендла, кто будет выделять?

[firstoxe]

Сообщение от p51x

Phandle - указатель. Память под переменную для хендла, кто будет выделять?

Не очень понял.
Как выделять под него память?

[p51x]

Сделать HWnd обычным хэндлом, а в функцию передавать адрес @HWnd

[firstoxe]

Сообщение от p51x

Сделать HWnd обычным хэндлом, а в функцию передавать адрес @HWnd

Если я правильно понял,

var
HWnd,HWnd1 :Thandle;

begin
   HWnd1 :=GetCurrentProcessID;

  NxMemo61.Lines.Add('идентификатор текущего процесса: ' +
    GetCurrentProcessId.ToString);
  NxMemo61.Lines.Add('псевдодескриптор текущего процесса: ' +
    GetCurrentProcess.ToString);
    DuplicateHandle(HWnd1,HWnd1,HWnd1, @HWnd , 0, false, DUPLICATE_SAME_ACCESS);
     NxMemo61.Lines.Add('Дескриптор, полученный функцией DuplicateHandle: ' +    HWnd.ToString);

HWnd=0 соответственно DuplicateHandle возвращает false

[p51x]

Ну так вызывайте GetLastError и смотрите.

СТОП. А какого вы вместо хендла процесса в функцию ИД суете?

[firstoxe]

Сообщение от p51x

Ну так вызывайте GetLastError и смотрите.

СТОП. А какого вы вместо хендла процесса в функцию ИД суете?

GetLastError выдал, неверный дескриптор
заменил на GetCurrentProcess. получилось. Большое спасибо за помощь