[Delphi] CreateProcess, dan de wHandle opvragen.

[Guillome]

Hoi.

Ik start bijv. NotePad met CreateProcess.
Hoe kan ik dan de Window Handle van die instantie opvragen?
Ik kom er ff niet meer uit.

groetjes

code:

Str := 'notepad.exe';

Function TForm1.StartFile(Str : String) : Integer;
  function EnumWindProc(hWnd: HWND;lParam: LPARAM): BOOL; stdcall;
  begin
    if GetWindowThreadProcessId(hWnd, nil)
    Caption := IntToStr(hWnd);
  end;
var PCharArr:PChar;
    pInfo:Process_Information;
    sInfo:StartupInfo;
    ItemToAdd : TListItem;
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;
  ItemToAdd := ListView1.Items.Add;
  ItemToAdd.Caption := IntToStr(pInfo.dwThreadId);
  ItemToAdd.SubItems.Add(IntToStr(pInfo.dwProcessId));
  ItemToAdd.SubItems.Add(IntToStr(pInfo.hThread));
  ItemToAdd.SubItems.Add(IntToStr(pInfo.hProcess));
  EnumThreadWindows(pInfo.hThread, @EnumWindProc, pInfo.dwProcessId);

Deze doet t niet

[Verwijderd]

Ik heb ff geen Delphi geinstalleerd, dus ik kan je niet goed helpen, maar je EnumWindowProc klopt iig niet; deze moet er zoiets uitzien:

code:

function EnumWindProc(hWnd: HWND;lParam: LPARAM): BOOL; stdcall;
var
  ProcessID: DWORD;  
begin
  GetWindowThreadProcessId(hWnd, ProcessID);
  if ProcessID = DWORD(lParam) then
    Caption := IntToStr(hWnd);
end;

[Guillome]

Incompatible Types 'cardinal' and 'pointer'.
Maar tnx voor de hulp )

[Verwijderd]

Oh dan is het geen var, probeer dan dit:

code:

GetWindowThreadProcessId(hWnd, @ProcessID);

[Guillome]

Ik heb nu dit:

code:

Function TForm1.StartFile(Str : String) : Boolean;

function EnumWindProc(hWnd: HWND;lParam: LPARAM): BOOL; stdcall;
var
  ProcessID: DWORD;
begin
  GetWindowThreadProcessId(hWnd, @ProcessID);
  if ProcessID = DWORD(lParam) then
    Caption := IntToStr(hWnd);
end;

var PCharArr:PChar;
    pInfo:Process_Information;
    sInfo:StartupInfo;
    ItemToAdd : TListItem;
    Msg: TMsg;
    lpExitCode : DWORD;
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 or STARTF_FORCEONFEEDBACK;
    wShowWindow := SW_HIDE;
    end;
    Result := CreateProcess(nil,StrPCopy(PCharArr,(Str)),nil,nil,FALSE,0,nil,nil,sInfo,pInfo);
  finally
    freemem(PCharArr);
  end;
  ItemToAdd := ListView1.Items.Add;
  ItemToAdd.Caption := IntToStr(pInfo.dwThreadId);
  ItemToAdd.SubItems.Add(IntToStr(pInfo.dwProcessId));
  ItemToAdd.SubItems.Add(IntToStr(pInfo.hThread));
  ItemToAdd.SubItems.Add(IntToStr(pInfo.hProcess));
  EnumThreadWindows(pInfo.hThread, @EnumWindProc, pInfo.dwProcessId);
End;

StartFile('notepad.exe');

Alleen, ik krijg die windowhandle niet.
Maar als ik die laatste EnumThreadWindows functie via een button daarna uitvoer, krijg ik `m wel.
Hoe kan ik wachten in deze functie totdat de app gestart is?

Bij voorbaat dank
XL

[.oisyn]

EnumThreadWindows ()

^{met dank aan hvdberg voor het me laten herinneren}

.edit: hmm ik zie dat jij ook degene bent van deze topic: [topic=489019]
je was er toch uit?
en zo niet, waarom ga je dan daar niet verder?

.edit2: oh wacht ik zie dat je het al over EnumThreadWindows () had... niet goed gelezen

[Guillome]

Leg uit

[.oisyn]

overigens hoef je het processID niet meer te controleren, aangezien de betreffende window altijd door de betreffende thread is gecreert

[Guillome]

Op vrijdag 10 mei 2002 01:26 schreef .oisyn het volgende:
EnumThreadWindows ()

^{met dank aan hvdberg voor het me laten herinneren}

.edit: hmm ik zie dat jij ook degene bent van deze topic: [topic=489019]
je was er toch uit?
en zo niet, waarom ga je dan daar niet verder?

.edit2: oh wacht ik zei dat je het al over EnumThreadWindows () had... niet goed gelezen

Ja dat was ik en ja dáár was ik uit.
Maar dit gaat te snel ofzo voor de PC.
Bij die andere had ik 2 knoppen. Dus tijd genoeg.
Maar dit is een ander onderwerp als die andere.

[Guillome]

Op vrijdag 10 mei 2002 01:33 schreef .oisyn het volgende:
overigens hoef je het processID niet meer te controleren, aangezien de betreffende window altijd door de betreffende thread is gecreert

Is dat zo?? Hmm
Maar ... het antwoord heb ik nu nog niet

[.oisyn]

okee wacht, ik begrijp je probleem nu

je probleem is dus dat je de EnumThreadWindows () functie te vroeg uitvoert, zodat notepad dus nog geen kans gekregen heeft z'n window te creeeren...

Tja, je zou natuurlijk regelmatig kunnen kijken, met steeds korte wachtpauzes ertussen

[Guillome]

Juust `m dat is het
Maar hoe doe ik dat wachten?
Hoe kijk ik of tie klaar is?

[edit]
"Of ie bezig is" en "Waneer ie klaar is"

`t Is maar goed dat we weten waar we het over hebben

[Aetje]

Vergis ik me nu of staat die niet gewoon in de pInfo structure? Bekijk die even...

The PROCESS_INFORMATION structure is filled in by the CreateProcess function with information about a newly created process and its primary thread.

typedef struct _PROCESS_INFORMATION { // pi
HANDLE hProcess;
HANDLE hThread;
DWORD dwProcessId;
DWORD dwThreadId;
} PROCESS_INFORMATION;


Members

hProcess

Returns a handle to the newly created process. The handle is used to specify the process in all functions that perform operations on the process object.

hThread

Returns a handle to the primary thread of the newly created process. The handle is used to specify the thread in all functions that perform operations on the thread object.

dwProcessId

Returns a global process identifier that can be used to identify a process. The value is valid from the time the process is created until the time the process is terminated.

dwThreadId

Returns a global thread identifiers that can be used to identify a thread. The value is valid from the time the thread is created until the time the thread is terminated.

[.oisyn]

simpel, gewoon EnumThreadWindows aan blijven roepen net zo lang tot je EnumWindProc wordt aangeroepen met de goeie window

(en dan zet je in je EnumWindProc een bepaalde variabele naar een bepaalde waarde, zodat de code die de hele tijd EnumThreadWindows aan het aanroepen is dat ie klaar is)

zoiets dus (* .oisyn is geen delphi kenner):

code:

in je EnumWindProc:

windowGevonden = true;



in de code die de hele tijd EnumThreadWindows aanroept:

windowGevonden = false;
while (!windowGevonden)
{
    EnumThreadWindows (...);
    Sleep (100);
}

[Guillome]

Die ken ik al
Daar staat process/thread ID en handle

[Guillome]

Op vrijdag 10 mei 2002 01:43 schreef .oisyn het volgende:
simpel, gewoon EnumThreadWindows aan blijven roepen net zo lang tot je EnumWindProc wordt aangeroepen met de goeie window

(en dan zet je in je EnumWindProc een bepaalde variabele naar een bepaalde waarde, zodat de code die de hele tijd EnumThreadWindows aan het aanroepen is dat ie klaar is)

zoiets dus (* .oisyn is geen delphi kenner):

code:

in je EnumWindProc:

windowGevonden = true;



in de code die de hele tijd EnumThreadWindows aanroept:

windowGevonden = false;
while (!windowGevonden)
{
    EnumThreadWindows (...);
    Sleep (100);
}

Op die manier hangt ie

[Aetje]

Waarom heb je deze eigenlijk nodig? Als je aan het te creeren window enkele properties enzo wil toekennen, check de startupinfo struct es.

[edit]

zoiets dus (* .oisyn is geen delphi kenner):

code:

in je EnumWindProc:

windowGevonden = true;



in de code die de hele tijd EnumThreadWindows aanroept:

windowGevonden = false;
while (!windowGevonden)
{
    EnumThreadWindows (...);
    Sleep (100);
}

Moet zijn:

code:

in je EnumWindProc:

in de code die de hele tijd EnumThreadWindows aanroept:

windowGevonden := false;
while (NOT windowGevonden) do
Begin
  WindowGevonden := EnumThreadWindows(thread,functie,param);
  Sleep(100);
End;

Jij bent C programmeur

[Guillome]

Omdat ik de WindowHanlde meteen wil opvragen

[Aetje]

Ik ga dit morgen nog ff nakijken. Nu

[Guillome]

Tnx in iedergeval, en tot morgen!!

[Guillome]

Op vrijdag 10 mei 2002 01:55 schreef Aetje het volgende:
Waarom heb je deze eigenlijk nodig? Als je aan het te creeren window enkele properties enzo wil toekennen, check de startupinfo struct es.

[edit]
[..]

Moet zijn:

code:

in je EnumWindProc:

in de code die de hele tijd EnumThreadWindows aanroept:

windowGevonden := false;
while (NOT windowGevonden) do
Begin
  WindowGevonden := EnumThreadWindows(thread,functie,param);
  Sleep(100);
End;

Jij bent C programmeur

Hmmm dan doet ie `t alleen de 1e keer
Als ik dan nog een process open, zet ie die 1e handle erneer, en niet de nieuwe.

Nope, dat was lulkoek. ( ehh dat van mij hierboven bedoel ik dan )
Maar hij doet t niet op deze manier

[.oisyn]

Op vrijdag 10 mei 2002 01:55 converteerde Aetje mijn C-code naar Delphi-code

Thanx , maar die ene WindowGevonden moet weg:

WindowGevonden := EnumThreadWindows(thread,functie,param);

[Guillome]

Op vrijdag 10 mei 2002 02:21 schreef .oisyn het volgende:

[..]

Thanx , maar die ene WindowGevonden moet weg:
[..]

?? Wrom?
Dan doet ie t niet meer, dan hangt ie

[Aetje]

Op vrijdag 10 mei 2002 02:21 schreef .oisyn het volgende:

[..]

Thanx , maar die ene WindowGevonden moet weg:
[..]

Nee, want als je die wegdoet blijft ie in dat loopje hangen iteratief, dus in de loop een uitweg geven (door WindowGevonden op true te zetten)
EnumThreadWindows is een functie die een boolean waarde terug geeft. True als gelukt, False als gefaald. Je wil doorgaan tot ie gelukt is. Dan klopt het toch als je dit op deze manier doet? Je kent de return waarde toe aan een variabele

[Guillome]

Maar zo pakt ie de Handle nog niet

Of ik nou Result := False of True in die WinThreadProc zet, dat maakt geen verschil i.i.g

[Guillome]

Dit is in iedergeval mijn code;
Met 5 knoppen, en een ListView.

code:

unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShellApi, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    ListView1: TListView;
    Button5: TButton;
    function ShowInstance(Pid : Integer) : Boolean;     
    function HideInstance(Pid : Integer) : Boolean;
    Function StartFile(Str: String) : Boolean;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
  public
  protected
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

Function TForm1.StartFile(Str : String) : Boolean;
var PCharArr:PChar;
    pInfo:Process_Information;
    sInfo:StartupInfo;
    ItemToAdd : TListItem;
    Msg: TMsg;
    lpExitCode : DWORD;
    windowGevonden : Boolean;

  function EnumWindProc(hWnd: HWND;lParam: LPARAM): BOOL; stdcall;
  begin
    if ListView1.Items[ListView1.Items.Count - 1] <> nil Then
    ListView1.Items[ListView1.Items.Count - 1].SubItems.Add(IntToStr(hWnd));
  end;

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 or STARTF_FORCEONFEEDBACK;
    wShowWindow := SW_HIDE;
    end;
    Result := CreateProcess(nil,StrPCopy(PCharArr,(Str)),nil,nil,FALSE,0,nil,nil,sInfo,pInfo);
  finally
    freemem(PCharArr);
  end;
  ItemToAdd := ListView1.Items.Add;
  ItemToAdd.Caption := IntToStr(pInfo.dwThreadId);
  ItemToAdd.SubItems.Add(IntToStr(pInfo.dwProcessId));
  ItemToAdd.SubItems.Add(IntToStr(pInfo.hThread));
  ItemToAdd.SubItems.Add(IntToStr(pInfo.hProcess));
  WindowGevonden := false;
  while (NOT windowGevonden) do
  Begin
    WindowGevonden := EnumThreadWindows(pInfo.hThread,@EnumWindProc,0);
    Sleep(100);
  End;
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;

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

procedure TForm1.Button2Click(Sender: TObject);
begin
  StartFile('notepad.exe');
  //ListView1.Items[0].Selected := True;
//  Button5Click(nil);
end;

procedure TForm1.Button3Click(Sender: TObject);
Var Item : TListItem;
begin
  Item := ListView1.Selected;
  If Item = nil Then Exit;
  ShowInstance(StrToInt(Item.Caption));
end;

procedure TForm1.Button4Click(Sender: TObject);
Var Item : TListItem;
begin
  Item := ListView1.Selected;
  If Item = nil Then Exit;
  HideInstance(StrToInt(Item.Caption));
end;

procedure TForm1.Button1Click(Sender: TObject);
var hProcess : Integer;
    Item : TListItem;
begin
  Item := ListView1.Selected;
  If Item = nil Then Exit;
  hProcess := OpenProcess(PROCESS_TERMINATE, False, StrToInt(Item.SubItems[0]));
  If TerminateProcess(hProcess, 0) Then
  Begin
    Item.Delete;
  End;
end;

procedure TForm1.Button5Click(Sender: TObject);
  function EnumWindProc(hWnd: HWND;lParam: LPARAM): BOOL; stdcall;
  begin
    Form1.ListView1.Selected.SubItems.Add(IntToStr(hWnd));
  end;
begin
  EnumThreadWindows(StrToInt(ListView1.Selected.Caption), @EnumWindProc, StrToInt(ListView1.Selected.Caption));
end;

end.

[Guillome]

Hmmm als ik[quote]
WindowGevonden := false;
Sleep(400);
// while (NOT windowGevonden) do
//Begin
WindowGevonden := EnumThreadWindows(pInfo.dwThreadId,@EnumWindProc,0);
//Sleep(100);
// End;
[/quote]


Neerzet doet ie t wel.
Dus dat loopje gaat niet goed....

ps. let op het commentaar

[Aetje]

Dan kun je WindowGevonden er ook uit knikkeren, variabele heeft zo geen zin... Maar als het proces na 400MSec nog niet de window gecreerd heeft, gaat 't feest niet door... ... ...

[Guillome]

Jawel, maar dat is neit wat ik wil
Als ik een app opstart die meer dan 400 ms nodig heeft, dan doet ie t niet dus...
Dat loopje heb ik dus wel nodig

[.oisyn]

Op vrijdag 10 mei 2002 02:23 schreef XLerator het volgende:

[..]

?? Wrom?
Dan doet ie t niet meer, dan hangt ie

EnumThreadWindows retourneert 0 als er een fout opgetreden is, en ongelijk aan 0 als het goed is gegaan (of er nou een window te enumeraten is of niet)

maw, WindowGevonden wordt ook true als er helemaal geen window gevonden is

Op vrijdag 10 mei 2002 02:25 schreef Aetje het volgende:

[..]

Nee, want als je die wegdoet blijft ie in dat loopje hangen iteratief, dus in de loop een uitweg geven (door WindowGevonden op true te zetten)
EnumThreadWindows is een functie die een boolean waarde terug geeft. True als gelukt, False als gefaald. Je wil doorgaan tot ie gelukt is. Dan klopt het toch als je dit op deze manier doet? Je kent de return waarde toe aan een variabele

nee, je moet WindowGevonden op true zetten in je EnumWindProc!

[Aetje]

Probeer een ander ietsje voor dat loopje. Laat EnumProcWindows een globale variabele veranderen als die succes heeft gehad.

[Guillome]

Dan hangt ie ook, als ik een globale var gebruik

code:

Function TForm1.StartFile(Str : String) : Boolean;
var PCharArr:PChar;
    pInfo:Process_Information;
    sInfo:StartupInfo;
    ItemToAdd : TListItem;
    Msg: TMsg;
    lpExitCode : DWORD;
    windowGevonden : Boolean;

  function EnumWindProc(hWnd: HWND;lParam: LPARAM): BOOL; stdcall;
  begin
    if Form1.ListView1.Items[Form1.ListView1.Items.Count - 1] <> nil Then
    Form1.ListView1.Items[Form1.ListView1.Items.Count - 1].SubItems.Add(IntToStr(hWnd));
    WindowGevonden := True;
  end;

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;
    Result := CreateProcess(nil,StrPCopy(PCharArr,(Str)),nil,nil,FALSE,0,nil,nil,sInfo,pInfo);
  finally
    freemem(PCharArr);
  end;
  ItemToAdd := ListView1.Items.Add;
  ItemToAdd.Caption := IntToStr(pInfo.dwThreadId);
  ItemToAdd.SubItems.Add(IntToStr(pInfo.dwProcessId));
  ItemToAdd.SubItems.Add(IntToStr(pInfo.hThread));
  ItemToAdd.SubItems.Add(IntToStr(pInfo.hProcess));
  WindowGevonden := False;
 // Sleep(400);
  while (Not WindowGevonden) do
  Begin
    EnumThreadWindows(pInfo.dwThreadId,@EnumWindProc,0);
    Sleep(100);
  End;
End;

[.oisyn]

wordt je EnumWindProc wel aangeroepen dan?

[Guillome]

Nu niet
Wel als ik er Sleep(400) voor zet
Ten misnte met notepad, omdat die wel binnen die tijd gestart is


Ten minste, dan hangt ie ook.
[edit]
Hij wordt wel uitgevoerd, WindowGevonden wordt in die proc wel op true gezet, maar die in dat loopje, de globale var zeg maar, blijft false.

[.oisyn]

ja maar als het 400 ms duurt, dan moet je EnumWindProc dus in de 4e iteratie worden aangeroepen (aangezien dan 400 ms gewacht is), en dus moet ie uit dat loopje komen

.edit: oh, dan hangt ie ook... dat is wel wazig. In C heb je het keyword volatile, heb je dat in Delphi ook?

[Guillome]

code:

Function TForm1.StartFile(Str : String) : Boolean;
var PCharArr:PChar;
    pInfo:Process_Information;
    sInfo:StartupInfo;
    ItemToAdd : TListItem;
    Msg: TMsg;
    lpExitCode : DWORD;
    WindowGevonden : Boolean;

  function EnumWindProc(hWnd: HWND;lParam: LPARAM): BOOL; stdcall;
  begin
    if Form1.ListView1.Items[Form1.ListView1.Items.Count - 1] <> nil Then
    Form1.ListView1.Items[Form1.ListView1.Items.Count - 1].SubItems.Add(IntToStr(hWnd));
    WindowGevonden := True;
  end;

begin
blabla
WindowGevonden := False;
 // Sleep(400);
  while (Not WindowGevonden) do
  Begin
    EnumThreadWindows(pInfo.dwThreadId,@EnumWindProc,0);
    Sleep(100);
  End;
End;

[Guillome]

Op vrijdag 10 mei 2002 02:55 schreef .oisyn het volgende:
ja maar als het 400 ms duurt, dan moet je EnumWindProc dus in de 4e iteratie worden aangeroepen (aangezien dan 400 ms gewacht is), en dus moet ie uit dat loopje komen

.edit: oh, dan hangt ie ook... dat is wel wazig. In C heb je het keyword volatile, heb je dat in Delphi ook?

Nee wat is dat dan?

[.oisyn]

dat geeft aan dat elke keer als je een variabele opvraagt, dat ie het uit het geheugen haalt. Ik denk dat hij WindowGevonden voor het loopje uitleest, en dan in de while de hele tijd die ingelezen variabele controleert (hij leest dus niet opnieuw in)

hoewel hij dat wel zou moeten doen, want er staat een functioncall in dat loopje, en na een functioncall kan alles veranderd zijn, dus dan kan ie dat ook niet optimalizeren

Zijn de 2 WindowGevonden's wel hetzelfde?

[Guillome]

Op vrijdag 10 mei 2002 03:00 schreef .oisyn het volgende:
Zijn de 2 WindowGevonden's wel hetzelfde?

Hoe kan ik dat, en de rest, controleren?

[.oisyn]

bijvoorbeeld door het adres van de variabele op te vragen. Als je nou voor het loopje even het adres van WindowGevonden output, en ook nog eens in je EnumWindProc. Die 2 zouden hetzelfde moeten zijn

[Guillome]

Hoe vraag je het adres op dan?
Door een @ ervoor te zetten?

[.oisyn]

geloof het wel, maar ik ken geen Delphi

[Guillome]

Hmmmz
ShowMessage(@WindowGevonden);

'Incompatible types 'string' and 'pointer'

[.oisyn]

hmm wacht, er gaat een lichtje branden.

Maak die functie EnumWindProc eens globaal (dus niet genest in je TForm1.StartFile functie), evenals de WindowGevonden variabele

[Aetje]

Dit is niet hoe Delphi werkt. Die WindowGevonden is een lokale variabele van de functie/procedure waarin ie wordt opgeroepen. Dus NIET een lokale variabele van de iteratie. Dat mag nl in delphi niet (alle variabelen moeten expliciet met type gedefineerd worden, dmv het keyword var.

Dus er is maar een windowgevonden.

Ook dat 400ms wachten, dat ie bij de 4e iteratie naar buiten springt... Nee dus. Dit stuk code zegt:

code:

ZOLANG Niet (WindowGevonden) DOE
  Wacht 400 ms
  WindowGevonden wordt EnumThreadWindows...
  Eind ZOLANG

WindowGevonden is ergens boven de iteratie gedefineerd.

Zet eens een watch op de WindowGevonden. En kijk of ie eindeloos in het loopje blijft. Kijk ook of EnumThreadWindows uberhaupt iets teruggeeft...

[Guillome]

Testing


Dan is Handle 0, maar hangt niet meer


Testing #2

Met die watch erop, zegt ie als ik in de WinThreadProc ben, 'inaccessable value'

[Aetje]

Als handle 0 is, heeft Createprocess nog niet een window gecreerd denk ik. Dus dat is een voorwaarde om opnieuw de iteratie in te gaan, en opnieuw EnumThreadWindows te doen... Denk dat je dat wel kunt implementeren...

[.oisyn]

Op vrijdag 10 mei 2002 03:07 schreef Aetje het volgende:
Dit is niet hoe Delphi werkt. Die WindowGevonden is een lokale variabele van de functie/procedure waarin ie wordt opgeroepen. Dus NIET een lokale variabele van de iteratie. Dat mag nl in delphi niet (alle variabelen moeten expliciet met type gedefineerd worden, dmv het keyword var.

ik weet hoe het in Delphi werkt, althans, ik heb ooit in pascal geprogrammeerd (alle syntax is me alleen niet echt bijgebleven)

ik bedoelde ook niet lokaal als in het loopje, maar lokaal van de functie. Een geneste functie in Delphi kan toch ook gewoon bij de lokale vars van z'n parent? Maar er is echter een probleem: als ie bij de vars van z'n parent moet kunnen, mag die functie dus ook alleen maar aangeroepen worden vanuit z'n parent, en niet in een andere functie, omdat dan de stack niet meer klopt, en kan hij dus ook niet meer bij de vars van z'n parent. Daarom wordt ook de verkeerde WindowGevonden var gezet (dwz, hij schrijft naar een compleet verkeerd geheugenadres)

ik ga nu , veel succes nog

[Guillome]

Met die watch erop, zegt ie als ik in de WinThreadProc ben, 'inaccessable value'

[Guillome]

HIJ DOET HET!!!!

mom. code komt eraan

Tnx allebij he!!!! TOPPIE!!!!
Fantastische hulp ( en dat om middennacht )

Maar wat .oisyn zij, dat was het. Functie globaal maken

code:

Function EnumWindProc(hWnd: HWND;lParam: LPARAM): BOOL; stdcall;
begin
  if Form1.ListView1.Items[Form1.ListView1.Items.Count - 1] <> nil Then
    Form1.ListView1.Items[Form1.ListView1.Items.Count - 1].SubItems.Add(IntToStr(hWnd));
  WindowGevonden := True;
end;

Function TForm1.StartFile(Str : String) : Boolean;
var PCharArr:PChar;
    pInfo:Process_Information;
    sInfo:StartupInfo;
    ItemToAdd : TListItem;
    Msg: TMsg;
    lpExitCode : DWORD;

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;
    Result := CreateProcess(nil,StrPCopy(PCharArr,(Str)),nil,nil,FALSE,0,nil,nil,sInfo,pInfo);
  finally
    freemem(PCharArr);
  end;
  ItemToAdd := ListView1.Items.Add;
  ItemToAdd.Caption := IntToStr(pInfo.dwThreadId);
  ItemToAdd.SubItems.Add(IntToStr(pInfo.dwProcessId));
  ItemToAdd.SubItems.Add(IntToStr(pInfo.hThread));
  ItemToAdd.SubItems.Add(IntToStr(pInfo.hProcess));
  WindowGevonden := False;
  while (Not WindowGevonden) do
  Begin
    EnumThreadWindows(pInfo.dwThreadId,@EnumWindProc,0);
    Sleep(100);
  End;
End;

[Aetje]

Watch op WindowGevonden, break op een Sleep(1); die je er even vlak onder zet, en nog eens proberen. Blijft ie problemen geven, zet dan compiler optimizations uit onder Project - Project Options - Compiler

[edit]
Laat dus maar al opgelost.

En het is na 3en

[Guillome]

MAAAR.....


Als ik nu 'c:\program files\internet explorer\iexplore.exe' gebruik, dan is het venster na een SW_HIDE, en dan SW_SHOW, niet goed.
Een gek wit vlakje linksboven waarmee je nix kan

[.oisyn]

doe eens SW_SHOWNORMAL ipv SW_SHOW

uit de MSDN:

SW_SHOW - Activates the window and displays it in its current size and position.

SW_SHOWNORMAL - Activates and displays a window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when displaying the window for the first time.

[Guillome]

Dat helpt helaas niet

[.oisyn]

tja je zou natuurlijk met SetWindowRect () MoveWindow () zelf de coordinaten op kunnen geven...

maar is het niet gewoon beter als je m start met SW_MINIMIZED ipv SW_HIDE?


.edit: sorry, verkeerde functie

[Guillome]

Ten eerste is het niet de bedoeling dat ie SW_SHOWMINIMIZED is.
Maar als ik dat ook ff probeer, dan is ie nogsteeds niet goed als ik `m daarna met ShowWindow op SW_SHOW* zet

[edit]

Hmm, als ik eerst SHOW doe, en dan met een knop op SHOWMINIMIZED, dan komt er een ander scherm, die wordt minimized. En als je dan SHOWNORMAL doet, wordt dát venster dat gekke vierkantje, en met de echte IE window gebeurd nix.
Dus das een andere ID

[Aetje]

Op vrijdag 10 mei 2002 16:38 schreef XLerator het volgende:
Ten eerste is het niet de bedoeling dat ie SW_SHOWMINIMIZED is.
Maar als ik dat ook ff probeer, dan is ie nogsteeds niet goed als ik `m daarna met ShowWindow op SW_SHOW* zet

[edit]

Hmm, als ik eerst SHOW doe, en dan met een knop op SHOWMINIMIZED, dan komt er een ander scherm, die wordt minimized. En als je dan SHOWNORMAL doet, wordt dát venster dat gekke vierkantje, en met de echte IE window gebeurd nix.
Dus das een andere ID

Kun je text gooien in dat gekke witte vierkantje?
* Aetje heeft een vermoeden dat een memoveldje van dat notepadje geen baasje meer heeft...

[Guillome]

Eh ik heb het nu over IExplore.exe
Notepad werkt vlekkeloos, net als vele anderen.
IExplore is de eerste nu die het niet doen

[Guillome]

Dat venstertje opent trouwens veel kleiner hoor, 100 bij 100 ofzo