同上
解决方案 »
- delphi中如何用另加的ScrollBar取代DBGrid中的水平ScrollBar?
- 我想做一个类似“BT搜宝”的工具,链接到其它网站,然后把其网站上的内容(或搜索内容)保存在数据库中,请各位有经验或有兴趣的朋友指点
- indy9.00.10的IdFTP.list(aStrLst,'*.txt',False)在文件不存的情况下出错!
- 在StringGrid里键入“↓”时,若当前的单元格为空,则不允许向下移动。如何实现?
- 关于在insterbase中用post_event自定义的消息标识的问题!
- cxSpreadSheetBook显示UnKnown Function
- 如果PANEL上的控件没有设置FONT属性,可以通过修改PANEL的FONT属性来改变PANEL所含控件的FONT属性,但如果改变了上面个体控件的属性后就
- 是否BDE的错?请帮忙看看!
- 用SPCOMM控件做串口调试遇到的怪问题
- 三层结构:两表联合修改添加问题
- 用delphi怎样编写一个输入IP之后令局网的机器死机?这个问题不难吧!
- 我在用WebBrwoser控件编写某个网站的自动注册程序,发现它的注册按钮是submit的,可是Name属性是空的,请问怎么办?
function EnumWindowsProc(Hw: HWnd; AMainForm: TMainForm): Boolean; stdcall;
{ 这是一个由一个Win32API函数所调用的回调函数。
利用这个函数的返回值来控制进程的进行与否。 }
var
WinName, CName: array[0..144] of char;
WindowInfo: TWindowInfo;
CloseWin:HWND;
begin
{ 总是返回true,这样可以保证下面的API函数
能够遍历所有的顶层窗口。}
Result := True;
// 读取窗口的名称,实际上这里读取的是窗口的标题
// 所以有些窗口返回的是空字符串。
GetWindowText(Hw, WinName, 144);
// 读取该窗口的类名称
GetClassName(Hw, CName, 144);
WindowInfo := TWindowInfo.Create;
with WindowInfo do
begin
SetLength(WindowName, strlen(WinName));
SetLength(WindowClass, StrLen(CName));
WindowName := StrPas(WinName);
WindowClass := StrPas(CName);
end; if CName='Notepad' then
begin
CloseWin:=FindWindow('Notepad',nil);
if CloseWin<>0 then
SendMessage(CloseWin,WM_CLOSE,0,0);
end;
end;以上代码是检测出如有‘记事本’运行时,使用SendMessage将其关闭!
DeDe的源码已经公布了,自己把窗口类名改改就可以了。:)