الحصول علي Handle لمجلد

السلام عليكــم ورحمـة الله وبركاتــه ،،

لدي سؤال لكيفية الحصول علي handle for directory

حاولت عن طريق createfile

Var Handle: Thandle;
       Dh : Dword;
begin

Handle := CreateFile(Pchar('\\.\C:\myFolder'),
                              GENERIC_WRITE,
                              0, NULL,
                              CREATE_ALWAYS,
                              FILE_ATTRIBUTE_NORMAL,
                              NULL);

if not(Handle = INVALID_HANDLE_VALUE then
  begin

  { *******  Do Something ******* }

  end 
       else 
             begin

               Showmessage('Error Invalid Handle Value')
             end;

end;

هل هناك طريقة اخري للحصول علي Handle