或者怎么对用ShellExecute打开的程序发送消息进行操作呢?
解决方案 »
- NOD32 报我编写的程序是病毒???
- 关于在delphi中对sql执行update的问题。急急急
- 如何加密图片?
- 用delphi7开发的webservice客户端程序如何截取发向服务端和从服务端接收的xml数据
- 打开一个 Form时如何向该窗口传递一个参数?
- *******还是sql数据库的恢复问题,老问题了,可是还是没有成功*******
- 怎样把JPG转换成BMP
- 问大家一个简单的问题,怎么取得DBGrid的行数?
- 关于使用Delphi+SQL2000中,怎么使用程序在SQL2000中动态的建立表。
- 请教各位,期盼回音。
- 气愤:昨晚下班时,手机被几条野狗叼走了(广州)
- 如何调用vc编写的DLL
var
H: HWND;
P: PChar;
begin
ShellExecute(0, 'open', 'notepad.exe', nil, nil ,SW_SHOW);
while True do
begin
H := GetForegroundWindow;
if H <> Handle then Break;
end;
P := 'collecte (问题虫) ';
SendMessage(H, WM_SETTEXT, 0, Integer(P));
end;————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
为什么我紧跟着执行:
SendMessage(mHandle, WM_CLOSE, 0, 0);
窗口并没有关闭啊?
SendMessage(mHandle, WM_CLOSE, 0, 0);
应该放在while外,如:
procedure TForm1.Button1Click(Sender: TObject);
var
H: HWND;
P: PChar;
begin
ShellExecute(0, 'open', 'notepad.exe', nil, nil ,SW_SHOW);
while True do
begin
H := GetForegroundWindow;
if H <> Handle then Break;
end;
P := 'collecte (问题虫) ';
SendMessage(H, WM_SETTEXT, 0, Integer(P));
SendMessage(H, WM_CLOSE, 0, 0);
end;————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
SendMessage(mHandle, WM_CLOSE, 0, 0);
应该放在while外,如:
procedure TForm1.Button1Click(Sender: TObject);
var
H: HWND;
P: PChar;
begin
ShellExecute(0, 'open', 'notepad.exe', nil, nil ,SW_SHOW);
while True do
begin
H := GetForegroundWindow;
if H <> Handle then Break;
end;
P := 'collecte (问题虫) ';
SendMessage(H, WM_SETTEXT, 0, Integer(P));
SendMessage(H, WM_CLOSE, 0, 0);
end;————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
if SendMessage(mHandle, WM_CLOSE, 0, 0)<>0 then
begin
MessageBoxEx(self.Handle,'关闭失败!','提示:',MB_ICONERROR,LANG_CHINESE);
end;