解决不了,着急!! 我在本地磁盘下例如D:\DATA下有大量的word文件,我想通过delphi做个小程序直接可以调用并打开文件,而不必在文件夹下面找,通过变量赋值的文件名,直接打开需要查找的文件,起到浏览作用,我用了shellexecute,但是没有搞定,各位高手,有好的办法教给我,最好有源代码,不够可以再加分。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //拖曳一 Button1 和 Edit1 uses ShellApi;procedure TForm1.Button1Click(Sender: TObject);begin with TOpenDialog.Create(Self) do begin InitialDir := ExtractFileDir(Application.ExeName); Filter := '*.doc(Word files)|*.doc|*.*(All files)|*.*'; if Execute then begin Edit1.Text := FileName; ShellExecute(Handle, 'open', PChar(Edit1.Text), nil, PChar(ExtractFileDir(Edit1.Text)), SW_SHOW); end; end;end;不知行吗? 你什么意思啊?上面那个就是你输入文件名字直接打开啊你要不这样做个变历data路径下的所有word文件名,然后保存到比如到listbox或者treeview里面有点想资源管理器啊你这么做没有意思啊 //设置你的变量名为name1,为string型号,存储的名称含扩展名!~uses ShellApi;procedure TForm1.Button1Click(Sender: TObject);var fullname:string;begin fullname:='D:\DATA\'+name1;//name1为你的变量 ShellExecute(Handle, 'open', PChar(fullname), nil, PChar(ExtractFileDir(fullname)),SW_SHOW);end; 其实YYQQ(阿鱼) 的思路是对的!(·¥·) DLL封装子窗体,最小化出错,帮忙看看代码,想个办法. 关于chart显示数据的问题?? 如何实现根据不同的文件后缀名,打开相对应的应用程序?? 我想做一个登陆界面,界面中需要输入用户名和密码,用户名、密码........ 計算字段求值問題﹗﹗ 入门问简单问题! delphi5.0的程序在6.0下编译出现以下问题,如何解决? 请教谁知道RAR为扩展名的文件的浏览器 急!!!!!!!!!!望指点!! 如何重命名一个文件夹? 紧急求助!!! 继续讨论
ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TOpenDialog.Create(Self) do
begin
InitialDir := ExtractFileDir(Application.ExeName);
Filter := '*.doc(Word files)|*.doc|*.*(All files)|*.*';
if Execute then
begin
Edit1.Text := FileName;
ShellExecute(Handle, 'open', PChar(Edit1.Text), nil,
PChar(ExtractFileDir(Edit1.Text)), SW_SHOW);
end;
end;
end;不知行吗?
上面那个就是你输入文件名字
直接打开啊
你要不这样
做个变历data路径下的所有word文件名,然后保存到比如到listbox或者treeview里面
有点想资源管理器啊
你这么做没有意思啊
uses
ShellApi;procedure TForm1.Button1Click(Sender: TObject);
var
fullname:string;
begin
fullname:='D:\DATA\'+name1;//name1为你的变量
ShellExecute(Handle, 'open', PChar(fullname), nil,
PChar(ExtractFileDir(fullname)),SW_SHOW);
end;
(·¥·)