zoukankan      html  css  js  c++  java
  • delphi中最小化其他程序及所有程序最小化(使用 shell.minimizeAll 和自己寻找窗口这两种办法)

    1.所有程序最小化

    uses ComObj;
     
    var
       shell : OleVariant;
    begin
     
       shell := CreateOleObject('Shell.Application');
      shell.minimizeAll;
    end;
    2.最小化其他程序
    spy++ 查找要最小化的程序classname
    var  
      Indicador :Integer;
    begin 
      // Find the window by Classname
      Indicador := FindWindow(PChar('notepad'), nil);
      // if finded
      if (Indicador <> 0) then begin
        // Minimize
        ShowWindow(Indicador,SW_MINIMIZE);
      end;
    end;
    
    
    3.根据程序标题最小化程序
    function FindWindowByTitle(WindowTitle: string): Hwnd;
        var
          NextHandle: Hwnd;
          NextTitle: array[0..260] of char;
    begin
          // Get the first window
          NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);
          while NextHandle > 0 do
          begin
            // retrieve its text
            GetWindowText(NextHandle, NextTitle, 255);
            if Pos(WindowTitle, StrPas(NextTitle)) <> 0 then
            begin
              Result := NextHandle;
              Exit;
            end
            else
              // Get the next window
              NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
          end;
          Result := 0;
    end;
    
    procedure hideExWindow()
    var Indicador:Hwnd;
    begin
        // Find the window by Classname
        Indicador := FindWindowByTitle('MyApp'); 
        // if finded
        if (Indicador <> 0) then
        begin
            // Minimize
            ShowWindow(Indicador,SW_HIDE); //SW_MINIMIZE
        end;
    end;

    http://blog.csdn.net/zang141588761/article/details/51858765

  • 相关阅读:
    一、列表
    正则表达式
    form表单学习
    HTTP场景应用
    fiddler几种功能强大的用法(二)
    在VMW里安装Ghost操作系统遇到的问题及解决的办法
    浮点数值的表示
    补码和补码的计算
    个人主页项目总结
    Todolist项目总结 JavaScript+jQuery
  • 原文地址:https://www.cnblogs.com/findumars/p/6711289.html
Copyright © 2011-2022 走看看