Bueno ya se que despues de mas de un año, pero nunca es tarde.. el codigo que bajaste esta bien nada mas que le la falta la
H en el segundo procedimiento
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOMOVE + SWP_NOSIZE);
end;
Para desactivar este efecto, volvemos a llamar a SetWindowPos, esta vez
pasándole HWND_NOTOPMOST como segundo parámetro:
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0,
SWP_NOMOVE + SWP_NOSIZE);
end;
Y Saludos a todos.. no me he muerto lo que pasa es que me congelaron como a paleta jo (En el mi extrabajo)
Saludos