[Delphi] CreateProcess + Events toevoegen aan app

[Guillome]

Hoi, ik start met CreateProcess bijv. notepad op.
Hoe kan ik dan een acite aan de onminimize of de onclose event toevoegen.
Dus als ie minimaliseerd, dat ik dan een message ofzo terug krijg?

Dit is mijn code

code:

Function TForm1.StartFile(Str : String) : Integer;
var PCharArr:PChar;
    pInfo:Process_Information;
    sInfo:StartupInfo;
begin
  PCharArr := AllocMem(SizeOf(Char)*(Length(Str)+7));
  try
    FillChar (sInfo, SizeOf (sInfo), 0);
    sInfo.cb := SizeOf (sInfo);    with sInfo do
    begin
    cb := SizeOf(TStartupInfo);
    dwFlags := startf_UseShowWindow;
    wShowWindow := SW_HIDE;
    end;
    CreateProcess(nil,StrPCopy(PCharArr,(Str)),nil,nil,FALSE,0,nil,nil,sInfo,pInfo);
  finally
    freemem(PCharArr);
  end;
  Result := pInfo.dwThreadId;
End;

function TForm1.ShowInstance(Pid : Integer) : Boolean;
  function EnumWindProc(hWnd: HWND;lParam: LPARAM): BOOL; stdcall;
  begin
    Result:=lParam=1234;
    if Result then
    ShowWindow(hWnd, SW_SHOWNORMAL);
  end;
begin
  EnumThreadWindows(Pid, @EnumWindProc, 1234);
End;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.Items.Add(IntToStr(StartFile('notepad.exe')));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowInstance(StrToInt(ListBox1.Items[ListBox1.ItemIndex]));
end;

[Verwijderd]

Een systemwide hook zetten en kijken of er iets voor de hwnd's in het door jou gecreeerde process langs komt? iets anders weet ik ook eigenlijk zo snel niet te verzinnen.

[Guillome]

Juist ja
Hoe ongeveer? Ik wil het zelf wel uitzoeken, maar een klein beginnetje?

[Verwijderd]

hmmz volgens mij als je SetWindowsHookEx en EnumThreadWindows 'n beetje handig combineerd moet je wel 'n aardig eindje komen?

[Verwijderd]

voorbeeld system hook: hier

[Guillome]

Tnx jongens!!