1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

program Project3;
{$APPTYPE CONSOLE}

uses
   Forms, Messages, Windows, StdCtrls, clipbrd;

{$R *.res}

procedure FindActiveControl;
var hWindow: HWND;
    Pid1, Pid2: Cardinal;
    lParam: LongInt;
    ksNew, ksOld: TKeyboardState;
begin
  Pid1 := GetWindowThreadProcessId(Application.Handle);
  Pid2 := GetWindowThreadProcessId(GetForeGroundWindow);

  if AttachThreadInput(Pid1, Pid2, True) then
  begin
    hWindow := GetFocus;
    lParam := MakeLong(0, MapVirtualKey($43, 0));
    ksNew[VK_CONTROL] := $80;
    GetKeyboardState(ksOld);
    SetKeyboardState(ksNew);
    PostMessage(hWindow, WM_KEYDOWN, $56, lParam);
    PostMessage(hWindow, WM_KEYUP, $56, lParam or $C0000000);
    Application.ProcessMessages;
    SetKeyboardState(ksOld);
  end;
  AttachThreadInput(Pid1, Pid2, False);
end;



function GetWinampFilename(data:Integer): String;
var Text: String;
    hwndWinamp, TempHandle : THandle;
    dat2: array[0..500] of Char;
    TrackPos: Integer;
    temp, MPointer: Cardinal;
begin
  hwndWinamp:= FindWindow('Winamp v1.x',nil);
  if data<0 then TrackPos:= SendMessage(hwndWinamp,WM_USER,0 , 125) else TrackPos:=data;
  MPointer:= SendMessage(hwndWinamp,WM_USER,TrackPos , 212);
  GetWindowThreadProcessId(hwndWinamp,TempHandle);
  hwndWinamp:= OpenProcess(PROCESS_ALL_ACCESS,False,TempHandle);
  ReadProcessMemory(hwndWinamp, Pointer(MPointer), @dat2,500,temp);
  CloseHandle(hwndWinamp);
  Result:= dat2;  // ;-)
end;

begin
  while (getasynckeystate(27) = 0) do
  begin
    if (getasynckeystate(13) <> 0) and (getasynckeystate(17) <> 0) and (getasynckeystate(18) <> 0) then
    begin
      writeln ( GetWinampFilename(-1) );
      clipboard.astext := GetWinampFilename(-1);
      FindActiveControl;
    end;
    repeat
    until (getasynckeystate(13) = 0) or (getasynckeystate(17) = 0) or (getasynckeystate(18) = 0);
  end;
end.                    

1:
2:
3:
4:
5:
6:
7:

repeat until (getasynckeystate(18) <> 0);
  repeat until (getasynckeystate(18) = 0);
  sleep(1000);
  writeln ( GetWinampFilename(-1) );
  clipboard.astext := GetWinampFilename(-1);
  FindActiveControl;
  sleep(1000);                    

1:
2:
3:
4:
5:

//wnd sei das Handle des Editfeldes
//P ist ein PChar
//song ist dein Songtitel als String
P := PChar(song);
SendMessage(wnd, WM_SETTEXT, 0, Cardinal(P));                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

.
.
.
  if AttachThreadInput(Pid1, Pid2, True) then
  begin
    hWindow := GetFocus;
    hWindow :=  FindWindowEx(hWindow, 0, '__oxFrame.class__', nil);
    hWindow :=  FindWindowEx(hWindow, 0, 'Internet Explorer_Server', nil);
    lParam := MakeLong(0, MapVirtualKey($56, 0));
    //ksNew[VK_CONTROL] := $80;     ich hab mir gedacht vll stört ne normal etastenkombination dashalb hab ich strg v statt zuzu schicken das strg gleich ma in die abfrage eingebaut
    //GetKeyboardState(ksOld);
    //SetKeyboardState(ksNew);
    PostMessage(hWindow, WM_KEYDOWN, $56, lParam);
.
.
.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  while (getasynckeystate(27) = 0) do
  begin         // in der abfrage wird jetzt strg abgefragt
    if (getasynckeystate(17) <> 0) {and }{(getasynckeystate(13) <> 0)} {and }{(getasynckeystate(18) <> 0) }then
    begin
      writeln ( GetWinampFilename(-1) );
      clipboard.astext := GetWinampFilename(-1);
      FindActiveControl;
      sleep(1000);
    end;
    repeat
    until (getasynckeystate(17) = 0) {or }{(getasynckeystate(13) = 0)}{ or} {(getasynckeystate(18) = 0)};
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure FindActiveControl(Text: String);
var hWindow: HWND;
    Pid1, Pid2: Cardinal;
    lParam: LongInt;
    ksNew, ksOld: TKeyboardState;
begin
  Pid1 := GetWindowThreadProcessId(Application.Handle);
  Pid2 := GetWindowThreadProcessId(GetForeGroundWindow);

  if AttachThreadInput(Pid1, Pid2, True) then
  begin
    hWindow := GetFocus;
    //hWindow :=  FindWindowEx(hWindow, 0, '__oxFrame.class__', nil);
    //hWindow :=  FindWindowEx(hWindow, 0, 'Internet Explorer_Server', nil);
    SendMessage(hwindow, WM_SETTEXT, 0, Integer(PChar(text)));
    Application.ProcessMessages;
    sleep(100);
  end;
  AttachThreadInput(Pid1, Pid2, False);
end;                    

1:
2:
3:
4:

writeln ( GetWinampFilename(-1) );
clipboard.astext := GetWinampFilename(-1);
PostKeyEx32(Ord('V'), [ssctrl, ssAlt], False);
sleep(1000);