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

[Человек_Борща]

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

procedure TForm1.sButton2Click(Sender: TObject);
var
  startupinfoa: _STARTUPINFOA;
  processinformation: _PROCESS_INFORMATION;
begin
  ZeroMemory(@startupinfoa, SizeOf(_STARTUPINFOA));
  startupinfoa.cb:=SizeOf(_STARTUPINFOA);
  CreateProcess(nil, PChar('calc.exe'), nil, nil, False, 0, nil, nil, startupinfoa, processinformation);
  ShowWindow(processinformation.dwThreadId,SW_MINIMIZE);
end;

[GunSmoker]

Учите мат-часть.

[Пепел Феникса]

мдя, показываем поток, свернуть процесс.......дожили.
повторю предыдущий ответ, учите основы Win32-кодинга.

а как домашнее задание, после ShowWindow вашего поставьте ShowMessage(IntToHex(GetLastError() ,1));
и с помощью гугла проанализируйте ответ.

[Stilet]

ShowWindow(processinformation.dwThr eadId,SW_MINIMIZE);

Эм...а.а.а... э.э.э... Это что сработает???
Вообще обычно функцией EnumThreadWindows получают список окон конкретного потока, а потом уже с ними работают (вернее с полученными Хендлами)
http://www.programmersforum.ru/showthread.php?t=74962
http://www.programmersforum.ru/showthread.php?p=607230
Ну и в принципе Яндексом по слову EnumThreadWindows

[Человек_Борща]

Ценные ответы! Спасибо! Вот что получилось и работает:

function EnumThreadWndProc(hwnd: THandle; lParam: LPARAM): Boolean; stdcall;
var
  len: Integer;
  classname: array [0..$ff] of Char;
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_USESHOWWINDOW;
  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;