Como saber si existen asteriscos en pantalla

[Rassiel]

Necesito saber como conocer si existe alguna aplicacion con asteriscos en pantalla y modificar las propiedades de la caja de texto para mostrar el contenido de los mismos.

Salu2.

[[seoane]]

No se cual es tu intención, pero aquí te dejo esta función. Convertirá todos los edits con asteriscos en edits normales.

Código Delphi [-]
function EnumChildProc(Handle: Thandle; lParam: LPARAM): BOOL; stdcall;
begin
  Result:= TRUE;
  if  (GetWindowLong(Handle,GWL_STYLE) and ES_PASSWORD) > 0 then
  begin
    PostMessage(Handle,EM_SETPASSWORDCHAR,0,0);
    RedrawWindow(Handle,nil,0,RDW_INVALIDATE);
  end;
end;

function EnumWindowsProc(Handle: Thandle; lParam: LPARAM): BOOL; stdcall;
begin
  Result:= TRUE;
  if isWindowVisible(Handle) then
    EnumChildWindows(Handle,@EnumChildProc,lParam);
end;

procedure NoMasSecretos;
begin
  EnumWindows(@EnumWindowsProc,0);
end;