F
ForestGuy
Unregistered / Unconfirmed
GUEST, unregistred user!
在运行这个程序的时候,弹出第一个对话框内容如标题所示。紧接着又弹出一个对话框,内容为“Unable to create process: 与系统连接的设备不能正常运转”。然后就退出了。<br><br>程序如下:<br>unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> Dialogs, StdCtrls;<br><br>type<br> TForm1 = class(TForm)<br> Edit1: TEdit;<br> Button1: TButton;<br> procedure Button1Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br><br>implementation<br><br>{$R *.dfm}<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> pati: TAltTabInfo;<br> szItemText: array [0..255] of Char;<br>begin<br> pati.cbSize := SizeOf(TAltTabInfo);<br> if GetAltTabInfo($954, 1, pati, @szItemText, SizeOf(szItemText)) then<br> begin<br> Edit1.Text := szItemText;<br> end;<br>end;<br><br>end.<br><br>注解:$954是任务栏上正在运行的一个Ap的主窗口的Handle,对这个参数我也不太理解,还请知道的同仁指点一二。