Auxilio para usar esta funcion sencilla

[flystar]

Amigos me encontré este código que sirve supuestamente para
colocar en foco y hasta adelante la aplicacion, como pueden ver
pide de parametro un Thandle...supongo que de la ventana..
pero como lo obtengo??? Alguien sabe como?
La cosa es usar la funcion a ver si sirve, pero no se bien como hacerlo. Alguna orientacion?

function ForceForegroundWindow(wnd: THandle): Boolean;
const
SPI_GETFOREGROUNDLOCKTIMEOUT = $2000;
SPI_SETFOREGROUNDLOCKTIMEOUT = $2001;
var
ForegroundThreadID: DWORD;
ThisThreadID: DWORD;
timeout: DWORD;
begin
if IsIconic(wnd) then ShowWindow(wnd, SW_RESTORE);

if GetForegroundWindow = wnd then Result := True
else
begin
// Windows 98/2000 doesn't want to foreground a window when some other
// window has keyboard focus

if ((Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion > 4)) or
((Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and
((Win32MajorVersion > 4) or ((Win32MajorVersion = 4) and
(Win32MinorVersion > 0)))) then
begin
// Code from Karl E. Peterson, www.mvps.org/vb/sample.htm
// Converted to Delphi by Ray Lischner
// Published in The Delphi Magazine 55, page 16

Result := False;
ForegroundThreadID := GetWindowThreadProcessID(GetForegroundWindow, nil);
ThisThreadID := GetWindowThreadPRocessId(wnd, nil);
if AttachThreadInput(ThisThreadID, ForegroundThreadID, True) then
begin
BringWindowToTop(wnd); // IE 5.5 related hack
SetForegroundWindow(wnd);
AttachThreadInput(ThisThreadID, ForegroundThreadID, False);
Result := (GetForegroundWindow = wnd);
end;
if not Result then
begin
// Code by Daniel P. Stasinski
SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @timeout, 0);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(0),
SPIF_SENDCHANGE);
BringWindowToTop(wnd); // IE 5.5 related hack
SetForegroundWindow(Wnd);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0,
TObject(timeout), SPIF_SENDCHANGE);
end;
end
else
begin
BringWindowToTop(wnd); // IE 5.5 related hack
SetForegroundWindow(wnd);
end;

Result := (GetForegroundWindow = wnd);
end;
end; { ForceForegroundWindow }

[ecfisa]

Hola flystar.

El handle del form (como de otros tantos controles) lo obtenes de la propiedad handle.

Ejemplos:

  Form1.Handle;
  Button1.Handle;
  Edit1.Handle;
  ...

Saludos.

[Casimiro Notevi]

Amigo flystar, te has saltado unas cuantas normas de nuestra guía de estilo, que no eres un novato aquí para hacer estas cosas

[Neftali [Germán.Estévez]]

Aunque el formatear el código manual está bien, es mejor utilizar los TAG's apropiados.

También sería lógico que ya que este truco ha salido en este hilo, continuaras hablando de él allí, por si alguien tienes problemas parecidos y para que la gente que lea el mensaje pueda tener más información (la que se publica allí).

[flystar]

Lo siento, senti que aunque fuera parecdo..era otra pregunta, por eso abrí otro hilo.