请问文件的关联及拖放编程！(100分)

Aaxron · 2003-08-04

目前我编写了一个记事本程序啊。比如说用Memo 做的简单记事本程序。 如何双击文本文件就可以调用我的程序打开文件啊。 还有就是在windows 资源管理器中，直接拖放文本到我的记事本程序中也可以打开文件。 具体怎么实现啊。要代码啊 谢谢啦！

木子 · 2003-08-05

文件关联     uses registry, shlobj; procedure TForm1.RegisterFileType(prefix: string; exepfad: string); var reg: TRegistry; begin reg := TRegistry.Create; try reg.RootKey := HKEY_CLASSES_ROOT; //create a new key --> .pci reg.OpenKey('.' + prefix, True); try //create a new value for this key --> pcifile reg.Writestring('', prefix + 'file'); finally reg.CloseKey; end; //create a new key --> pcifile reg.CreateKey(prefix + 'file'); //create a new key pcifile reg.OpenKey(prefix + 'file', True); //and create a value where the icon is stored --> c:.exe,0 try reg.Writestring('', exepfad + ',0'); finally reg.CloseKey; end; reg.OpenKey(prefix + 'file', True); //create value where exefile is stored --> c:.exe "%1" try reg.Writestring('', exepfad + ' "%1"'); finally reg.CloseKey; end; finally reg.Free; end; SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); end; 　 procedure TForm1.Button1Click(Sender: TObject); begin RegisterFileType('txt', '你的执行文件如:c:/edit.exe'); end; 我希望你是知道执行文件还得处理ParamStr

木子 · 2003-08-05

文件拖放 TForm1 = calss(TForm) ...... protected procedure WMDROPFILES(var Msg : TMessage); message WM_DROPFILES; ...... end; procedure TForm1.WMDROPFILES(var Msg: TMessage); var a : Integer;     Buffer: Array[0..255] of Char; begin    DragFiles(Msg);    a := DragQueryFile(Msg.wParam, $FFFFFFFF, Buffer, 255);    for a := 0 to a - 1 do begin       DragQueryFile(Msg.wParam, a, Buffer, 255);       //文件名就在Buffer里面了    end;    DragFinish(Msg.wParam); end; procedure TForm1.FormCreate(Sender: TObject); begin    DragAcceptFiles(Handle, True);//启动窗口对文件的接收 end;

NeutronDelphi · 2003-08-05

文件拖放 我看木子兄答非所问，在windows 资源管理器中，直接拖放文本到我的记事本程序中. 这个拖放是由Windows来完成，我们只需要在应用程序启动的时候 检测一下ParamCount,如何ParamCount=2则 你要打开的文件完整的路径名在ParamStr[1]中， 注意:  ParamCount,ParamStr是全局函数和全局变量 如果你不明白就写一个简单的程序：   1,新建一个应用程序   2,在主窗口OnCreate事件中写      if ParamCount=2 then         Caption:=ParamStr[1]   3,在资源管理器里，拖文件到可执行文件上试试看！    你会发现你拖的文件的文件名在窗口的Caption上

木子 · 2003-08-05

to NeutronDelphi: 我给出的是在程序执行以后接受来自资源管理器的拖放， 你给出的，不过是资源管理器内部拖放操作，

coolqiang · 2003-08-05

同意木子，从资源管理器拖动文件到“已经打开的程序”和“程序exe文件”是不同的概念！ 顺便请教木子：DragFiles(Msg)这部分是干什么用的？编译时提示未定义，用F1查看也不是一个API，注释后可通过编译，运行后结果正确。

thean · 2003-08-05

DragFiles(Msg) 用来处理拖放消息啊，要不怎么实现拖放啊。

NeutronDelphi · 2003-08-05

to  木子兄.    我知道你有你的理解,但是我敢肯定楼主要的是我的答案,你信不信?

Aaxron · 2003-08-05

不用看了，大家都同意，木子老哥一定是高手啦， 我会好好实践调试的。：） 谢谢木子，谢谢大富翁！ Delphi 万岁！

木子 · 2003-08-05

哈哈，对不起DragFiles(Msg)这个好象是我自己的代码，没有清干净， 对不起大家

请问文件的关联及拖放编程！(100分)

Aaxron

Unregistered / Unconfirmed

木子

Unregistered / Unconfirmed

木子

Unregistered / Unconfirmed

NeutronDelphi

Unregistered / Unconfirmed

木子

Unregistered / Unconfirmed

coolqiang

Unregistered / Unconfirmed

thean

Unregistered / Unconfirmed

NeutronDelphi

Unregistered / Unconfirmed

Aaxron

Unregistered / Unconfirmed

木子

Unregistered / Unconfirmed

Similar threads