为什么不WORK？？？各位高手给看看吧！(50分)

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, commctrl;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
hDesktop, hTemp : THandle;
FindInfo : LV_FINDINFO;
begin
hTemp := FindWindow('ProgMan', nil);
hTemp := GetWindow(hTemp, GW_CHILD);
hDesktop := GetWindow(hTemp, GW_CHILD);
FindInfo.flags := LVFI_STRING;
FindInfo.psz := PChar('Mydo
cuments');
if ListView_FindItem(hDesktop, 1, FindInfo) > 0 then
showmessage('WORK!!!');
end;

end.

气我？！

再跟,
这样是不能得到的吧!
不是讨论过了,必须用hook的说.

好像是要用hook. 不知有没有别的好办法

我的意见与以上几位一样

你想干什莫？？

谢谢大家！