Hola , estoy tratando de mostrar y ocultar ventanas por PID u otro dato que les muestro a continuacion :
Código Delphi
[-]
function EnumProcess(Handle: hWnd; lParam: Integer): Bool; stdcall;
var
pID : Cardinal;
Title : String;
ClassName : String;
begin
If Handle = NULL Then
begin
Result := False;
end
Else
begin
GetWindowThreadProcessID(Handle,pID);
SetLength(ClassName,255);
SetLength(ClassName,GetClassName(Handle,PChar(ClassName),Length(ClassName)));
If ClassName = '' Then
ClassName := 'Empty';
SetLength(Title,255);
SetLength(Title,GetWindowText(Handle,PChar(Title),Length(Title)));
If Title = '' Then
Title := 'Empty';
If IsWindowVisible(Handle) Then
begin
Form1.Memo1.Lines.Add('Class Name = ' + ClassName);
Form1.Memo1.Lines.Add('Handle = ' + IntToStr(Handle));
Form1.Memo1.Lines.Add('PID = ' + IntToStr(PID));
Form1.Memo1.Lines.Add('Title = ' + Title);
Form1.Memo1.Lines.Add('');
end;
Result := True;
end;
end;
procedure TForm1.btnTestClick(Sender: TObject);
var
Last : Integer;
begin
EnumWindows(@EnumProcess,Last);
end;
No encuentro informacion en google sobre esto.
¿ Alguno sabe como hacer esto ?