Ver Mensaje Individual
  #3  
Antiguo 17-05-2004
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.964
Reputación: 29
delphi.com.ar Va camino a la fama
Simpre pensé que si esa información estuviera disponible, no existirían esas constantes en Delphi. Por el lado de la información local no hay nada de eso, , seguramente este texto pertenece a los recursos de algúno de los módulos del sistema, entonces podrías obtener el Handle de alguno de estos módulos hModule y enumerar sus recursos, yo he probado este vago código sin éxito:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  hMod: HMODULE;
  pText: PChar;
  i,
  iLen: Integer;
begin
  hMod := GetModuleHandle(PChar(Edit1.Text));
  if hMod = 0 Then
    Memo1.Clear
  else
  begin
    pText := StrAlloc(MAX_PATH);
    try
      for i := 0 to 65535 do
      begin
        iLen := LoadString(hMod, i, pText, MAX_PATH);
        if iLen > 0 Then
          Memo1.Lines.Add(IntToStr(i) + '> ' + String(pText));
      end;
    finally
      StrDispose(pText);
    end;
  end;
end;
Solo encotré un Aceptar en el recurso 4161 de las common controls, obviamente ese no es el que buscas.
Es solo una idea que pude llegar a servirte.

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita