自定义公用对话框的一些Label：

procedure TForm1 . OpenDialog1Show ( Sender : TObject );

{First, we need to determine identifiers of dialog's

controls, they are following:}

const

 LB_FILETYPES_ID = 1089 ; // "File types:" label

 LB_FILENAME_ID = 1090 ;   // "File name:" label

 LB_DRIVES_ID = 1091 ;     // "Look in:" label

 Str1 = 'Four' ;

 Str2 = 'Five' ;

 Str3 = 'One' ;

 Str4 = 'Two' ;

 Str5 = 'Three' ;

var

 hOpenDialog : HWND ;

begin

 hOpenDialog := GetParent ( OpenDialog1 . Handle );

 SendMessage ( hOpenDialog , CDM_SETCONTROLTEXT , idOk , Longint ( PChar ( Str1 )));

 SendMessage ( hOpenDialog , CDM_SETCONTROLTEXT , idCancel , Longint ( PChar ( Str2 )));

 SendMessage ( hOpenDialog , CDM_SETCONTROLTEXT , LB_FILETYPES_ID , Longint ( PChar ( Str3 )));

 SendMessage ( hOpenDialog , CDM_SETCONTROLTEXT , LB_FILENAME_ID , Longint ( PChar ( Str4 )));

 SendMessage ( hOpenDialog , CDM_SETCONTROLTEXT , LB_DRIVES_ID , Longint ( PChar ( Str5 )));

end ;

procedure TForm1 . Button1Click ( Sender : TObject );

begin

 OpenDialog1 . Execute ;

end ;

***********

procedure TForm1 . PrintDialog1Show ( Sender : TObject );

begin

 SetWindowText ( GetDlgItem ( PrintDialog1 . Handle , idOk ), '&OK2' );

 SetWindowText ( GetDlgItem ( PrintDialog1 . Handle , idCancel ), '&Cancel2' );

 SetWindowText ( GetDlgItem ( PrintDialog1 . Handle , 1025 ), '&Properties2' );

end ;

// to Enumerate Control - IDs:

function EnumProc(wnd: HWND; Lines: TStrings): BOOL; stdcall;

var

 buf, Caption: array [0..255] of char;

begin

 Result := True;

 GetClassname(wnd, buf, 256);

 GetWindowText(wnd, Caption, 256);

 Lines.Add(Format('ID: %d, class: %s, caption: %s',

   [GetDlgCtrlID(wnd), buf, Caption]));

end;

procedure TForm1.PrintDialog1Show(Sender: TObject);

begin

 memo1.Clear;

 EnumChildWindows(Printdialog1.Handle, @EnumProc, Integer(memo1.Lines));

end;

注意，OpenDialog.Handle不是那个窗口的Handle，需要用GetParent(OpenDialog.Handle)来获取真正的Handle。

因此EnumChildWindows对于OpenDialog来说，应该是：

EnumChildWindows(GetParent(OpenDialog1.Handle),@EnumProc,Integer(Memo1.Lines));

{ Win2K OpenDialog的ID和Class信息：

ID: 1091, class: Static, caption: 查找范围(&I):

ID: 1137, class: ComboBox, caption:

ID: 1088, class: Static, caption:

ID: 1088, class: ToolbarWindow32, caption:

ID: 1120, class: ListBox, caption:

ID: 1090, class: Static, caption: 文件名(&N):

ID: 1148, class: ComboBoxEx32, caption:

ID: 1148, class: ComboBox, caption:

ID: 1148, class: Edit, caption:

ID: 1089, class: Static, caption: 文件类型(&T):

ID: 1136, class: ComboBox, caption:

ID: 1040, class: Button, caption: 以只读方式打开(&R)

ID: 1, class: Button, caption: 打开(&O)

ID: 2, class: Button, caption: 取消

ID: 1038, class: Button, caption: 帮助(&H)

ID: -1, class: ScrollBar, caption:

ID: 0, class: #32770, caption:

}