那为何我下面的这段代码没有反应??
连ShowMessage都没执行??procedure TForm1.Button1Click(Sender: TObject);
var
hwnd:THandle;
begin
hwnd:=FindWindow(nil,'NetCaptor');
if hwnd<>0 then
SetActiveWindow(hwnd)
else
ShowMessage('Don"t find the Window');end;
连ShowMessage都没执行??procedure TForm1.Button1Click(Sender: TObject);
var
hwnd:THandle;
begin
hwnd:=FindWindow(nil,'NetCaptor');
if hwnd<>0 then
SetActiveWindow(hwnd)
else
ShowMessage('Don"t find the Window');end;
解决方案 »
- 那位好心的Delphi大哥帮个忙呗
- 请问如何在PE文件中搜索一段字节数组.并反回地址.
- 数据库导入到 EXCEL中的问题??
- idhttp上传,一直搞不定,请大家帮忙了,不胜感激!
- 执行查询以后 dbgrid不显示数据的问题!!!!
- 如何获得包含的资源文件
- FreeCommunication Ver 2.8 已经出炉,请大家捧场,多谢!
- delphi如何实现文件的压缩和解压缩???
- duxin(小伍)接100
- 想自己做个数据库格式,用来放些数据,不知道有没有高人愿与相肋?高分相送
- 我想把Qreport控件做成的报表生成EXCEL文件,有什么好的方法。
- Dbgrid、TADODataset、sql server2000触发器,请教高手
begin
winexec(pchar('c:\rups2w\Rups2w.exe'),SW_SHOW);
Sleep(1000);
// find the exist window
outerwinfrm := FindWindow(nil, 'RUPS II for Windows');
// Active the window
if outerwinfrm = 0 then
begin
Application.MessageBox('请先安装UPS监控软件!!!','警告',mb_Ok+mb_iconwarning);
exit;
end;
ShowWindow(outerwinfrm,SW_Restore);
SetActiveWindow(outerwinfrm);
BringWindowToTop(outerwinfrm);
freelibrary(outerwinfrm);//***********************************************
anyhelp?hehehe