打开外部文件(70分)

Zythum · 2000-03-26

程序中用按钮Button1打开一个文件， procedure TForm1.Button1Click(Sender: TObject); begin   ShellExecute(Handle, 'Open', 'c:/a.txt', '', '', SW_ShowNormal); end; 如何实现下列功能： 当文件a.txt未打开时，按下按钮Button1则打开文件a.txt， 当文件a.txt已打开时，按下按钮Button1则使已打开的文件a.txt窗口置于最上方。

邹光先 · 2000-03-26

fhandle:=findwindow找到a.txt窗口的句柄 if fhandle=nil then   shellexecute else   setwindowlong设置窗口属性使他topmost End;

Zythum · 2000-03-26

如果已打开文件 c:/windows/a.txt 则用Findwindow函数会判断错！

wrench · 2000-03-26

用写的方式打开此文件， 若不能打开， 说明这个文件已被使用

mikecool · 2000-03-27

wrench说得对 不过如何判断窗口呢？ 我也想知道

沈前卫 · 2000-03-27

》如果已打开文件 c:/windows/a.txt 》则用Findwindow函数会判断错！   怎么个错法？？？

SuperMMX · 2000-03-27

对呀，findwindow, 怎么会出错呀？

cAkk · 2000-03-27

我不明白,一个*.txt文件怎么能findwindow??????????????????????????????????

DreamTiger · 2000-03-27

呵呵，我也觉得有问题，打开一个txt文件不一定要用notepad，那就没法找到 打开这个txt文件的程序句柄了。 除非用   ShellExecute(Handle, 'Open', 'notepad', 'c:/a.txt', '', SW_ShowNormal); 然后查找notepad的句柄。

wystrim · 2000-03-28

有个幼稚的问题，我用shellexecute时编译出错，为什么！

wjiachun · 2000-03-28

>>有个幼稚的问题，我用shellexecute时编译出错，为什么！ 在 uses部分加入 ShellApi ！

liuchuanbo · 2000-04-01

procedure TForm3.BitBtn3Click(Sender: TObject); var f:textfile;     s:string; begin application.CreateForm(tform2,form2);   form2.memo1.lines.clear;   opendialog1.filename:=filestr1;   assignfile(f,filestr1);   reset(f);   while not eof(f) do   begin   s:='';   readln(f,s);   form2.memo1.lines.add(s);   end;   closefile(f);   form2.show; end;

pyh_jerry · 2000-05-04

function executefile(const filename,params,,defaultdir:string;showcmd: integer):thandel;是最简单的方法， example: executefile('c:/program~1/winamp/winamp.exe','winamp.m3u','d:/mp3/',0); 程序将自动打开WINAMP播放MP3. 见99年电脑报；

wjiachun · 2000-09-04

接受答案了.

打开外部文件(70分)

Zythum

Unregistered / Unconfirmed

邹光先

Unregistered / Unconfirmed

Zythum

Unregistered / Unconfirmed

wrench

Unregistered / Unconfirmed

mikecool

Unregistered / Unconfirmed

沈前卫

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

wystrim

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

liuchuanbo

Unregistered / Unconfirmed

pyh_jerry

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads