谢谢!!!
解决方案 »
- 请手请进----------如何声明一个这样的数组?
- 文件复制,采用多线程是否能更快速些?
- 如何程序中调用DTS?
- 古怪的问题:Delhpi用AdoStoreProc调用Oracle中存储过程怎么没有用?
- 散分!!!
- 急!!!关于TStaticText文字背景去除
- Delphi6报错,何解??!!!
- 怎样处理NULL?我的程序有时会提示出错:
- 有关FileMapping中,MapViewOfFile()的问题.大家帮帮忙.
- 小妹要怎么给分,答出就给! 那有类试VCLZIP但不需注册的控件下!
- 关于Color的代码有问题吗:为什么在一般的Form里没问题,而在dll里就报错?
- 有关ADO的简单问题,在线等!
var h:hwnd;
p:array[0..255] of char;
begin
winexec('F:\WINNT\System32\calc.exe',SW_SHOW);//假设打开计算器,我用的是2000
sleep(500);//防止程序反映迟钝!
h:=GetForegroundWindow;
getwindowtext(h,p,255);
showmessage(string(p));//显示标题
end;