Pegar conteúdo do label de outra janela ou um loop nos comps

implementation

{$R *.DFM}

Type
//Dados para a procura
PDadoProcura = ^TDadoProcura;
TDadoProcura = record
Win : THandle;
YPos : Integer;
end;

Agora você precisa criar a function que procura a calculadora

//Procura pelo TStatic visível com a menor coordenada Y

function ListaFilhos(Win: THandle; lp: LPARAM): Boolean; stdcall;
var
P: PDadoProcura;
R: TRect;
ClassName: array[0..255] of char;
begin
P:=PDadoProcura(lp);
GetClassName(Win, ClassName, sizeof(ClassName));
//Verifica se é um campo estático
If StrPas(ClassName) = ´Static´ Then
begin
//Verifica se está visível
If IsWindowVisible(Win) Then
begin
//Pega a posição e o tamanho da janela
GetWindowRect(Win, R);
//Verifica se a coordenada Y é menor
If R.Top < P^.YPos then
begin
//É, assume que é esta
P^.YPos := R.Top;
P^.Win := Win;
end;
end;
end;
//Continua chamando a enumeração
Result:=True;
end;
//Retorna o valor do campo Label da Calculadora cuja coordena Y é menor
//e estiver visível

Agora pegue o valor da calculadora

function ResultadoDaCalculadora : String;
var
CalcWin: THandle;
P : TDadoProcura;
Buffer: array[0..80] of char;
begin
Result:=´´;
//Pega o handle da calculadora, se estiver aberta
CalcWin:= FindWindow(´SciCalc´,nil);
If CalcWin <> 0 Then
begin
//Assume nenhuma janela em coordenada Y absurda
P.Win:=0;
P.YPos:=Maxint;
//Lista todas as janelas filhas
EnumChildWindows(CalcWin,@ListaFilhos,LPARAM(@P));
//Verifica se realmente achou
If P.Win <> 0 then
begin
//Recupera o texto da janela
GetWindowText(P.Win, Buffer, sizeof(Buffer));
Result:=Buffer;
end
Else
//Opa, a calculadora não é conhecida
Raise Exception.Create(´Esta calculadora não é familiar.´);
end
Else
//A calculadora não está aberta
Raise Exception.Create(´A calculadora não está aberta.´);

end;

Use o programa assim

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=ResultadoDaCalculadora;
end;

procedure TfPsy.Verify;
var
  strFull: string;
  Start: Integer;
  I: Integer;
  Words: Integer;
  CompleteWord: string;
begin
  try
    Screen.Cursor := crHourGlass;
    strFull := idhttpWebsite.Get(´http://www.di.fm/goapsy/´);
    Start := Pos(´text_trackname´, strFull) + 16;
    CompleteWord := Copy(strFull, Start, 100);
    Words := 0;
    for I := 0 to Length(CompleteWord) do
    begin
      if Copy(CompleteWord, I, 2) = ´</´ then
        Break
      else
        Inc(Words);
    end;
    lblAtualMusic.Caption := Copy(strFull, Start, Words - 1);
    if lblAtualMusic.Caption <> memMusics.Lines[memMusics.Lines.Count-1] then
    begin
      memMusics.Lines.Add(lblAtualMusic.Caption);
      memMusics.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+´musics.txt´);
    end;
  finally
    Screen.Cursor := crDefault;
  end;
  Update;
end;

procedure TfPsy.Verify;
var
  strFull: string;
  Start: Integer;
  I: Integer;
  Words: Integer;
  CompleteWord: string;
begin
  try
    Screen.Cursor := crHourGlass;
    strFull := idhttpWebsite.Get(´http://www.di.fm/goapsy/´);
    Start := Pos(´text_trackname´, strFull) + 16;
    CompleteWord := Copy(strFull, Start, 100);
    Words := 0;
    for I := 0 to Length(CompleteWord) do
    begin
      if Copy(CompleteWord, I, 2) = ´</´ then
        Break
      else
        Inc(Words);
    end;
    lblAtualMusic.Caption := Copy(strFull, Start, Words - 1);
    if lblAtualMusic.Caption <> memMusics.Lines[memMusics.Lines.Count-1] then
    begin
      memMusics.Lines.Add(lblAtualMusic.Caption);
      memMusics.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+´musics.txt´);
    end;
  finally
    Screen.Cursor := crDefault;
  end;
  Update;
end;