��������: ����� ��������� ������ ������, �� ��� ����� ����������� ������ �������� ���-������ ���������, �� ������ ������� ����������� DLL ��� ���������� ��������� ����� �������������� Winamp.
------------------------------------------------------------------------------------------------

����� ��������� ������ ������, �� ��� ����� ����������� ������ �������� ���-������ ���������, �� ������ ������� ����������� DLL ��� ���������� ��������� ����� �������������� Winamp.

������������� ��� ��� ����� �� �� ��������� ������ mIRC � Delphi 7.

��� ������� ����� ����������� ������ �� ����� ���������� � IRC ��� ���-������ ����� �� �����, ��� � ������ ������ ����������� ��� ������� ��������� Winamp. �������� ��� � ������� ��������� �������, �������������� � ��� �������������. ������� �� �� ����� ������ ���� DLL ��� ����� ������� ���������� Winamp � ������������ �� ���� ������ ����������.

����, ���������. ������� ������ ����� ��� �������� DLL ��� � ���������� ������ � ���� ���� ���� ������ �������:

function nexttrack(mWnd, aWnd: HWND; data, parms: PChar; show, nopause:boolean):integer;
stdcall; export;
begin
sendmessage(findwindow('Winamp v1.x',nil), WM_COMMAND, 40048,0); //���� ����
end;

exports nexttrack;

������ ��������� ����������� ��� � ��� ��������. ����� 1 �������, � �� ������� ;) ������� SendMessage �������� ����������� ��������� ����. ������ ��������� � �������� ����� ����� � ����� ������ �� Delphi. ������� ����� 4 ���������: 1 � ����, �������� �� ��� ��� ����; 2 � ������� ����; 3 � 4 � ����������� ��������� ��� �������. � ����� ������ ���� �� ������� �������� findwindow, ��� ������ �������� ��� �������� ������ ����, � ������ � �������� ���������. ����������� ��� ���������������, �� ���� �� ������. ����� ���� ������� WM_COMMAND � ���������� 40048, ������� � ����� ����������� ��������� �� ��������� ����. ������ ���� ���������� ����� ����� �� ����������� ����� Winamp.

�������� �������� ���������� ����:

library Project2;
uses
windows, messages;

function nexttrack(mWnd, aWnd: HWND; data, parms: PChar; show, nopause:boolean):integer;
stdcall; export;
begin
sendmessage(findwindow('Winamp v1.x',nil), WM_COMMAND,40048,0); //���� ����
end;
exports nexttrack;

begin
end.

����������� DLL, �������� �� � ����� � mIRC, ���� ��� ��� �� ���, ��������� Winamp � �������� ��� �������� �����, ����� ��������� ��� mIRC � ����� ������� /dll project2.dll nexttrack � �, ���� Winamp ���������� ������� ;)

��� �������� ����������, ������ ��������� ������ �� ���������� ��� �� �������� �� �� ������ ����������.

������ ������ DLL � �����������, ������ ���

--------------------------------
������ �������: yXo

�����! �������! 5 ������! �����, ���� ����!
������! �� ������ ���������! 4 �����
�������! ������ �����! �� 3 ����� �������.
�������������������! 2 �����
����� �����-��. �� ����� ����� ����� ����������� � ����?? 1 ����

����� ������ ��������� ���: 4398
����� ���������� ������: 29
������� ���� �� ������������: 3.4137931034483