请问怎样在用OpenPictureDialog 打开的图片选择界面中加入自己的按钮?

Question

大家好，
  我现在用OpenPictureDialog1.Execute打开一个图片浏览窗口，我想在这个窗口中加入自己的按钮，如全部导入这个按钮，请问怎样实现，我看google的picasa软件中就可以，请帮一下，我要实现的效果图如附件中。

Answer 1

var openhandle,openall:integer;openhandle:=findwindowex(0,0,'#32770','打开');     //英文版open
openall:=createwindow('button','打开全部',WS_OVERLAPPEDWINDOW,0,45,45,openhandle,0,0,0);
 ShowWindow(openall,openhandle)                           
UpdateWindow(openhandle);
上面的只是创建如果你要让这个按扭有效果的话还得给它消息MSG Msg; 
//建立窗口消息循环

Answer 2

好像不行了procedure TForm1.Button1Click(Sender: TObject);
var
openhandle,openall:integer;
begin
  if OpenPictureDialog1.Execute then
  begin
   openhandle:=findwindowex(0,0, '#32770 ', '打开 ');     //英文版open
   openall:=createwindow( 'button ', '打开全部 ',WS_OVERLAPPEDWINDOW,0,45,45,openhandle,0,0,0,0);
   ShowWindow(openall,openhandle);
   UpdateWindow(openhandle);
  end;
end;