面试的问题,高手指导一下.

Question

如何在文件属性框中增加一页自定义的面板，并在该面板上放一页图片？？ 

Answer 1

TO:starluck
  右击电脑上任何一个文件,选择"属性",就会弹出该文件属性对话框,要求在这个对话框当中,增加一个自定义的面板(即再增加一个页面框)

Answer 2

好像是WINAPI中的文件创建函数,好像有一个扩展文件属性.

Answer 3

这得对windows有关的东西深入了解才行。

Answer 4

使用笨方法成功了
procedure TForm1.Button1Click(Sender: TObject);
begin
Windows.SetParent(FindWindowEx(FindWindow('#32770','新建文本文档.txt 属性'),0,'SysTabControl32',''),Form1.Handle);
if   form1.Controls[0]   is   TTabControl   then
begin
(form1.Controls[0]   as   TTabControl).Tabs.Add('自定义页面');
Windows.SetParent((form1.Controls[0]   as   TTabControl).Handle,FindWindowEx(FindWindow('#32770','新建文本文档.txt 属性'),0,'SysTabControl32',nil))
end;
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);                                                                  //修改一下上面的
begin 
Windows.SetParent(FindWindowEx(FindWindow('#32770','新建文本文档.txt 属性'),0,'SysTabControl32',''),Form1.Handle); //拿过来
if  form1.Controls[0]  is  TTabControl  then                                                                     //判断控件属性是否TTabControl
begin 
(form1.Controls[0]  as  TTabControl).Tabs.Add('自定义页面');                                                      //新增自定义页面
Windows.SetParent((form1.Controls[0]  as  TTabControl).Handle,FindWindow('#32770','新建文本文档.txt 属性'))        //放回去
end; 
end;谁有聪明的方法?

Answer 6

感谢大家的热情帮忙，想不到还有跟我一样还用DELPHI的兄弟