1.在SQL语句中,有一日期为'2003-6-12'如何将它变成字符型后再取它的前六位字符?2.巨难:有两应用程序,分别为A1.exe、A2.exe,A1为主程序,A2为子程序当焦点在A2程序的窗体时,如何取A1窗体的某一控件的值(如Exit1.text)?
解决方案 »
- 再帮帮我吧!还是连接sql的问题!
- 有谁可以详细的讲一下在一台机上做的数据库系统把*.EXE文件和*.ini文件拷贝到别的机上运行的步骤及注意事项!
- 简单的字符结束符问题
- 高分求助!
- fastreport如何实现如下形式的报表
- 请各位谈谈delphi和UML的使用心得。
- delphi如何调用word
- 用delphi开发工厂程序,求合作伙伴!!!!
- 请问如何能够让access不要生成.ldb的临时文件或者把这个临时文件生成到其他地方,象c盘或者其他目录下面(在线给分)
- 有关dbgrid显示的问题
- 对Delphi7的编译器了解的朋友请指教。qtintf70.dll是干什么用的?
- 紧急救缓,这个问题困扰了我好长时间!来者有分!
2、用消息转发器
var
Handle, ChildHandle: HWND;
clsName: pchar;
text:array[0..255] of char;
begin
getmem(clsName, 255);
Handle := FindWindow(pchar('SciCalc'), nil);
if Handle <> 0 then
begin
ChildHandle := GetWindow(Handle, GW_Child);
while ChildHandle <> 0 do
begin
GetClassName(ChildHandle, clsName, 255);
//showmessage(clsName);
if string(clsName) = 'Static' then
begin
getwindowtext(ChildHandle,text,255);
showmessage(text);
end;
ChildHandle := GetWindow(ChildHandle, GW_HWNDNEXT);
end;
end;
freemem(clsName, 255);
end;
2.用findwindowex找到句柄