用Delphi创建一个应用程序，包含一个Memo和2个Button，如何实现......(200分)

djw · 2001-05-09

用Delphi创建一个应用程序，包含一个Memo和2个Button，如何实现: 当单击Button1时， 自动把Memo的内容复制到一个打开的记事本中或其他打开窗口Memo或Text中。 当单击Button2时， 执行打开的记事本程序中或其他打开窗口的快捷键（如：Ctrl+s或Ctrl+Alt+a等）。

creation-zy · 2001-05-09

在Delphi的安装光盘中有一个sndkey32.pas文件，用它可以实现你的要求。 (Path: Info/Extras/SendKeys/) begin   Memo1.CopyToClipboard;   AppActivate('未定标题 - 记事本'); //关键是这一步，要知道窗体的标题   SendKeys('^v',false); //Ctrl+v   SendKeys('abcABC ?!',false);   SendKeys('^s',false); //Ctrl+s   SendKeys('abc.txt',false); //在对话框中输入文件名   SendKeys('{ENTER}',false); //回车   ... end; 至于如何取得窗体的标题，大富翁里有很多贴子，查一下就可以了。

djw · 2001-05-12

creation-zy: 不管用啊!

scorpions · 2001-05-12

关注

Kingron · 2001-05-12

关于Button1的问题，很简单，只要不是IE中的Edit就用SendMessage()就可以了。 关于Button2，我想可以用Keybd_event？

creation-zy · 2001-05-12

djw:   怎么可能？   你是否已经通过Click Button1激活了记事本？这一步是最关键的，我是在Win2K下打开记事本， 新建了一个文件——此时记事本的标题就成了'未定标题 - 记事本'。不知道你试验的时候记事本 的标题是什么——一点都不能错的！   你再将SendKeys('abcABC ?!',false);一句之后的都删掉试一试。（也就是后面直接根 end; ）   不过，我在发送完键盘事件之后想再次通过AppActivate激活本程序——失败了——键盘事件又 发回本程序了。你可以在激活本程序之前ProcessMessages and Sleep N次，应该能行的。

djw · 2001-05-13

creation-zy： 我用的是98se＋D5， 记事本的标题是‘无标题 - 记事本'。 运行后Click Button1， 乱响一阵，程序没响应。 如果只run下列代码：   Memo1.CopyToClipboard;   AppActivate('无标题 - 记事本'); 则任务栏上的记事本会不停闪烁，直到手动激活记事本。

creation-zy · 2001-05-13

procedure TForm1.Button4Click(Sender: TObject); begin   Memo1.SelectAll;   Memo1.CopyToClipboard;   AppActivate('未定标题 - 记事本');   SendKeys('^v',false);   SendKeys('abcABC ?!',false);   Application.ProcessMessages;   AppActivate('你好!'); //本程序的标题 end; 我没辙了，在我这里一切正常。上面的程序已经可以激活记事本、发送键盘事件然后回到本程序了。 你用Kingron的办法吧，只要能够得到记事本的Handle就可以了，至于如何发送特殊的键盘事件， 看一看sndkey32.pas的源码就差不多了，以前的贴子也有很多。 Good Luck!

djw · 2001-06-04

Kingron: 用你的办法，具体如何实现。

54l5 · 2002-04-02

鉴定 · 2002-04-09

首先在中放入  2个BOtton:BOTTON_1 、botton_2和2 个Memo:memo1,memo2  在Botton_1 中写如下代码 　　memo2.text:=memo1.text;     memo1.lines.clear; 在Botton_2 中写如下代码   winexec('c:/windows/note.exe',1);  可实现你的要求。

xianjun · 2002-04-15

试试下面的代码，应该实现你的要求了： procedure TForm2.Button1Click(Sender: TObject); const   NotepadCaption = 'Untitled - Notepad';   function FindTargetHWnd: THandle;   var     HPwnd: THandle;   begin     HPwnd := FindWindow(nil, PChar(NotepadCaption));     Result := FindWindowEx(HPwnd, 0, 'Edit', nil);   end; var   S: string;   Hwnd: THandle; begin   S := Memo1.Text;   Hwnd := FindTargetHWnd;   SendMessage(Hwnd, WM_SETTEXT, 0, Integer(S));   SendMessage(Hwnd, EM_SETSEL, 0, -1); end;

用Delphi创建一个应用程序，包含一个Memo和2个Button，如何实现......(200分)

djw

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

djw

Unregistered / Unconfirmed

scorpions

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

djw

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

djw

Unregistered / Unconfirmed

54l5

Unregistered / Unconfirmed

鉴定

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

Similar threads