delphi :打开记事本并写入内容[转]
摘要：
procedure TForm.ButtonClick(Sender: TObject); var hEdit: HWND; str: string; begin str := '准备要添加到记事本的字符串'; WinExec('Notepad.exe', SW_SHOWNORMAL); hEdit := GetWindow(GetForegroundWindow, GW_CH... 阅读全文
posted @ 2011-01-11 23:53 Delphi7456 阅读(1402) 评论(0) 推荐(0) 编辑
