[Delphi] CreateProcess, en dan meer...

[Guillome]

Hoi

Ik maak een process aan met createprocess, en dan maak ik dat process "SW_HIDE". Dus dan zie je `m niet.

Maar hoe maak ik `m weer visible? Met ShowWindow? Dat lukt me niet.

Mijn geknoei:

code:

var
  Form1: TForm1;
  pInfo:Process_Information;
  sInfo:StartupInfo;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
var PCharArr:PChar;
begin
  PCharArr := AllocMem(SizeOf(Char)*(Length('notepad.exe')+7));
  try
    {This is a startupinfo for CreateProcess}
    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,('notepad.exe')),nil,nil,FALSE,0,nil,nil,sInfo,pInfo);
  finally
    freemem(PCharArr);
  end;
  ShowMessage(IntToStr(pInfo.dwProcessId));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(pInfo.dwProcessId));
  DestroyWindow(pInfo.hProcess); 
  ShowWindow(pInfo.dwProcessId, SW_SHOWNORMAL);
  ShowMessage(IntToStr(pInfo.dwProcessId));
  TerminateProcess(pInfo.hProcess, pInfo.hProcess);
end;

[.oisyn]

voor ShowWindow heb je de window handle (HWND) nodig van de window die je wilt laten zien. Dus die window zul je moeten vinden...

Als je de titel van de window weet dan kun je m vinden met FindWindow (), anders zul je met EnumWindows () alle windows moeten langslopen, en controleren met GetWindowThreadProcessId () of een van de windows idd van het betreffende process is (het processID van het proces dat je net hebt gestart staat in de PROCESS_INFORMATION struct)

.edit: typo

[Guillome]

`t Moest wel EnumWindows zijn
Ik maar denken, waarom doet ie t nu niet
Maar ik ga weer puzzelen Tnx

[edit]
Snap ter nog nix van, van dat EnumWindows

[.oisyn]

EnumWindows is een functie die alle windows afloopt, en bij elke window een door jouw opgegeven functie aanroept (een callback dus)

ik heb geen verstand van Delphi, maar in C doe je dat zo:

code:

BOOL CALLBACK enumWindowsCallback (HWND hWnd, LPARAM param)
{
    if (isDeGoedeWindow (hWnd)) // is dit de juiste window?
    {
      ShowWindow (hWnd, SW_SHOW); // laat zien
      return FALSE;      // stoppen met de enumeratie
    }

    return TRUE; // window nog niet gevonden, dus doorgaan
}


// ergens in jouw code
EnumWindows (enumWindowsCallback, 0);

die param is gewoon een eigen opgegeven waarde die ook naar de callback functie wordt gestuurd

[Verwijderd]

Is dit wat je wilt?

code:

procedure TForm1.Button1Click(Sender: TObject);
  function EnumWindProc(hWnd: HWND;lParam: LPARAM): BOOL; stdcall;
  begin
    Result:=lParam=1234;
    if Result then
    ShowWindow(hWnd, SW_SHOWNORMAL);
  end;
var
  siNotepad: STARTUPINFO;
  piNotepad: PROCESS_INFORMATION;
begin
  FillChar(siNotepad, SizeOf(STARTUPINFO), 0);
  FillChar(piNotepad, SizeOf(PROCESS_INFORMATION), 0);
  siNotepad.cb := SizeOf(STARTUPINFO);
  siNotepad.dwFlags := STARTF_USESHOWWINDOW;
  siNotepad.lpTitle := nil;
  siNotepad.wShowWindow := SW_HIDE;
  CreateProcess(nil, 'notepad.exe', nil, nil, False, 0, nil, nil, siNotepad, piNotepad);
  EnumThreadWindows(piNotepad.dwThreadId, @EnumWindProc, 1234);
end;

[.oisyn]

oh ja stom, EnumThreadWindows (), helemaal vergeten

[Guillome]

Tnx hvdberg
Je bent een kei!!!!!
Hij werkt mjummie goed!!!!
Tnx!!!: D

Ik heb nu dit

code:

var
  Form1: TForm1;
  pInfo:Process_Information;
  sInfo:StartupInfo;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
var PCharArr:PChar;
begin
  PCharArr := AllocMem(SizeOf(Char)*(Length('notepad.exe')+7));
  try
    {This is a startupinfo for CreateProcess}
    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,('notepad.exe')),nil,nil,FALSE,0,nil,nil,sInfo,pInfo);
  finally
    freemem(PCharArr);
  end;
  ShowMessage(IntToStr(pInfo.dwProcessId));
end;

procedure TForm1.Button1Click(Sender: TObject);
  function EnumWindProc(hWnd: HWND;lParam: LPARAM): BOOL; stdcall;
  begin
    Result:=lParam=1234;
    if Result then
    ShowWindow(hWnd, SW_SHOWNORMAL);
  end;
begin
  EnumThreadWindows(pInfo.dwThreadId, @EnumWindProc, 1234);
end;

Zou je misschien alleen die onderse Button1Click kunnen uitleggen hoe die werkt/ wat ie doet?

[Verwijderd]

Op woensdag 08 mei 2002 19:40 schreef XLerator het volgende:
Tnx hvdberg
Je bent een kei!!!!!
Hij werkt mjummie goed!!!!
Tnx!!!: D

Ik heb nu dit

code:

...
procedure TForm1.Button1Click(Sender: TObject);
  function EnumWindProc(hWnd: HWND;lParam: LPARAM): BOOL; stdcall;
  begin
    Result:=lParam=1234;
    if Result then
    ShowWindow(hWnd, SW_SHOWNORMAL);
  end;
begin
  EnumThreadWindows(pInfo.dwThreadId, @EnumWindProc, 1234);
end;

Zou je misschien alleen die onderse Button1Click kunnen uitleggen hoe die werkt/ wat ie doet?

Met behulp van de EnumThreadWindows API kun je alle windows van een een thread langslopen (enumeration). Deze API vraagt 3 parameters, namelijk:
1) Een thread ID (thread met windows om langs te lopen zeg maar)
2) Een callback functie (functie welke wordt aangeroepen door de API als er een window wordt gevonden). Door de @ geven we een pointer naar deze functie mee. In dit geval heb ik de functie genest binnen de Button1Click maar dat hoeft niet; deze mag er ook buiten. Let wel op de stdcall achter de functie.
3) Een parameter naar keuze. Deze wordt met bij het aanroepen van de callback functie meegegeven en kan derhalve als controle waarde worden meegegeven (1234 is zomaar een voorbeeld).

De callback functie wordt net zolang aangeroepen door de API totdat het resultaat False is of er geen windows in het gespecificeerde thread zijn om te enumeraten.