uvgmn 发表于 2015-4-22 14:03:25

delphi枚举进程

delphi枚举进程

xiaomg 发表于 2015-4-22 14:04:14

procedureTForm1.Button1Click(Sender:TObject);   
begin   
    Memo1.Clear;   
    EnumWindows(@EnumWindowsFunc,LParam(Memo1.Lines));   
end;   
   
functionEnumWindowsFunc   
      (Handle:THandle;List:TStringList)   
      :boolean;stdcall;   
varCaption:arrayofChar;   
begin   
ifGetWindowText   
      (Handle,Caption,SizeOf(Caption)-1)<>0then   
    begin   
      List.Add(Caption);   
      SetWindowText(Handle,PChar('About-'+Caption));   
    end;   
   
Result:=True;   
end;

gajtjc 发表于 2016-11-17 16:53:05

看看 挣点海币

wyunl09 发表于 2017-5-21 09:56:39

楼主辛苦做的东西， 我不忍心轻易拿走， 必须留言，楼主辛苦了
页: [1]
查看完整版本: delphi枚举进程