[Zorkov Igor]

Для окна можно так

Код:

function IsValidWndHandle(HandleValue: THandle): BOOL;
var
  FDC: HDC;
begin
  Result := False;

  FDC := GetDC(HandleValue);

  if FDC = 0 then
    Exit;

  ReleaseDC(HandleValue, FDC);

  Result := True;
end;