Capture windows name in Delphi
我在delphi中做一个捕获活动窗口的程序问题是代码没有做我想要的，我想要的是一个计时器在适当的时候识别活动窗口，以便附加活动窗口的名称而不是永远等到你看到一个不同的名字，问题是它总是显示没有做我想做的事。
如果问题不是我做的很好验证。
代码
|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
procedure TForm1.Timer4Timer(Sender: TObject);
var begin GetWindowText(GetForegroundWindow, ventana1, SizeOf(ventana1)); nombre1 := ventana1; if not(nombre1 = nombre2) then end; |
- 你能提供一个错误的例子和你期望的例子吗？”节目没有按照我的意愿行事”不足以让我们为您提供帮助。
你什么都不做初始化nombre2，所以nombre1 = nombre2永远不可能是真的。 nombre2 总是 nil.
在 if 语句中设置 nombre2 := nombre1; 也是没有意义的，因为当过程退出时该值立即丢失；定时器事件的下一次调用以 nombre2 = nil 重新开始，因为 nombre2 是一个新的局部变量，每次进入过程时都会初始化为 nil，每次退出过程时都会释放它。
将 nombre2 移动到表单实例变量中：
|
1
2 3 4 5 6 7 8 |
type
TForm1 = class(TForm) // normal declarations here procedure Timer4Timer(Sender: TObject); private Nombre2: string; // I’d use LastWindowName myself. :-) … end; |
现在，在你的计时器事件中：
|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
procedure TForm1.Timer4Timer(Sender: TObject);
var ventana1: array [0 .. 255] of char; nombre1: string; // I’d use ‘NewName’ begin GetWindowText(GetForegroundWindow, ventana1, SizeOf(ventana1)); nombre1 := ventana1; if not(nombre1 = nombre2) then // Now nombre2 still has the last value, |
来源：https://www.codenong.com/18679207/
