Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Сен

Свернуть програму при запуске через PI.dwProcessId?

Posted by Chas under Топик-обзор

Привет всем!
Как свернуть программу запускаемую через ShowWindow(); используя ProcessInformation.dwProcessId?

function EnumThreadWndProc(hwnd: THandle; lParam: LPARAM): Boolean; stdcall;
var
  len: Integer;
  classname: array[0..$ff]ofChar;
begin
  Result:=True;

if IsWindowVisible(hwnd)then
begin
      ShowWindow(hwnd,SW_SHOWMINIMIZED);
end;
end;
procedure TForm1.sButton2Click(Sender: TObject);
var
  startupinfoa: _STARTUPINFOA;
  processinformation: _PROCESS_INFORMATION;
begin
  ZeroMemory(@startupinfoa, SizeOf(_STARTUPINFOA));
  startupinfoa.cb:=SizeOf(_STARTUPINFOA);
  startupinfoa.dwFlags:=STARTF_USES

HOWWINDOW;
  startupinfoa.wShowWindow:=SW_SHOWMINIMIZED;
  CreateProcess(nil, PChar(‘calc.exe’), nil, nil, False, 0, nil, nil, startupinfoa, processinformation);
  WaitForInputIdle(processinformation.hProcess, 10000);
  EnumThreadWindows(processinformation.dwThreadId, @EnumThreadWndProc, 0);
end;