WINAMP TITEL AUSLESEN

[Neutral General]

Hi,

Ich weiß nicht was du gemacht hast aber so funktionierts:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  cMaxBuffer = 255;
var
  h : HWND;
  such:string;
  buffer: array[0..cMaxBuffer] of Char;
begin
if h <> 0 then
  begin
     h := FindWindow('Winamp v1.x',nil);
     sendmessage(h,WM_GETTEXT,cMaxBuffer,integer(@buffer[0]));
     Caption := buffer;
  end;
end;

Ach ja: Deine Funktion ist eh total seltsam o.O. Was soll das "unsafe" und warum setzt du nirgendwo Result?

Edit: Was mir grad auffällt. Die Funktion ist totaler Schwachsinn o.O

Delphi-Quellcode:

function Winmp:string;unsafe; // unsafe???
const
  cMaxBuffer = 255;
var
  h : HWND;
  such:string; // ?
  buffer: array[0..cMaxBuffer] of Char;
begin
if h <> 0 then // Absolut sinnfreie Abfrage an dieser Stelle...
  begin
     h := FindWindow('Winamp v1.x',nil);
     // ... die gehört eher hierhin!
     sendmessage(h,WM_GETTEXT,cMaxBuffer,integer(@buffer[0]));
     // Result := Buffer; ???
  end;
end;