findwindow uden caption

finder dens window class

Hvordan finder jeg den ?
Der kører ikke noget synligt program, kun en dialogboks fra prograammet ?

Stoney

2 sec laver lige det du skal bruge...

procedure TForm1.Timer1Timer(Sender: TObject);
var
  hWnd    : THandle;
  buf      : array[0..255] of Char;
  p        : TPoint;
begin
  GetCursorPos(p);
  hWnd:=WindowFromPoint(p);
  if hWnd=0 then exit;
  GetClassName(hWnd,@buf[0],sizeof(buf));
  caption:= strpas(buf);
end;


det kan du bruge til at finde dens class med. så bruger du bare:
handle := findwindow('classen', nil)

først sætter du sidste kode på en timer, så kører du over den dialogboks, så skulle dens class gerne stå i caption af dit program. Det skriver du ned og bruger findwindow

Jeg kan nu ikke få det til at virke.
Mit problem er at jeg skal opgradere 1000+ workstations til
Norton Antivirus Corporate Edition.
http://service5.symantec.com/SUPPORT/nav.nsf/docid/2001092114452606
Jeg bruger ovenstående til at afinstallere tidligere versioner af Norton
Antivirus.
Den ender op med en dialogboks uden caption.
Denne dialogboks vil jeg bare sende "enter" og begynde at install. corp. edition.
Ifølge din kode skulle dialogboksen hedde "#32770" men jeg kan ikke fange den.

Stoney

har du prøvet med GetActivewindow() for at se om du kan få den?

alle dialogbokse hedder "#32770"

Er du sikker på, at du ikke under alle omstændigheder skal genstarte maskinen for at få afinstallationen fuldført?