delphi枚举进程

uvgmn

delphi枚举进程

1.rar (958 Bytes, 下载次数: 35)

2015-4-22 14:03 上传

点击文件名下载附件
下载积分: 海币 -2

联系我时，请说是在 挂海论坛 上看到的，谢谢！

xiaomg

procedure  TForm1.Button1Click(Sender:  TObject);   
  begin   
    Memo1.Clear;   
    EnumWindows(@EnumWindowsFunc,  LParam(Memo1.Lines));   
  end;   
     
  function  EnumWindowsFunc   
      (Handle:  THandle;  List:  TStringList)   
      :  boolean  ;  stdcall;   
  var  Caption:  array[0..256]  of  Char;   
  begin   
  if  GetWindowText   
      (Handle,  Caption,  SizeOf(Caption)-1)  <>  0  then   
    begin   
      List.Add(Caption);   
      SetWindowText(Handle,  PChar('About  -  '  +  Caption));   
    end;   
     
  Result  :=True;   
  end;

gajtjc

看看 挣点海币

wyunl09

楼主辛苦做的东西， 我不忍心轻易拿走， 必须留言，楼主辛苦了