如何对记事本操作?(100分)

S

sdenf

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在我自己的程序建立一个菜单,用Opendialog驱动记事本打开某个指定的文档,怎么操作
烦劳指点。
 
用winexec
 
用 WinExec函数呀!
WinExec('C:/windows/NotePAD.exe c:/temp/yourfile.txt',1);
 
大概是这样...

procedure TForm1.Button1Click(Sender: TObject);
var
S : String;
begin
if OpenDialog1.Execute then
begin
S := Format('C:/WINDOWS/NOTEPAD.EXE %s', [OpenDialog1.FileName]);
WinExec(PChar(S), SW_SHOW);
end

end;
 
用winexec, 参数:notepad c:/test.txt
 
翻开随身携带的记事本,[:D]
 
winexec('C:/WINDOWS/NOTEPAD.EXE > yourfile.txt',sw_show);
 
接受答案了.
 
再问,如何得到记事本里字体的属性
 
顶部