Bom, Inicie um projeto padrão de DLL do delphi.
Agora, Na Uses do projeto, adicione as seguintes unidades: Windows, Messages.
Estas uses serão nescessárias para a busca do handle da janela, e das mensagens que serão enviadas ao MSN.
---
Agora antes do Begin, Declare esta função.
Ela fará o trabalho de enviar a musica para o msn.
Para exportar coloque isto antes do Begin:
exports
MusicaAtual;
Agora sua DLL está pronta. você pode chamar ela com o método STDCALL ou dinâmicamente.
----
Chamando dinâmicamente uma DLL....
Declare uma classe especial na seção TYPE:
TMusicaAtual : procedure(Artista,Album,Titulo:string);
Declare duas variaveis globais:
vHandle: THandle;
MusicaAtual: TMusicaAtual;
Declare antes do End. estes códigos:
initialization
vHandle:= LoadLibrary(`NomeDaDLL.DLL`);
if @MusicaAtual = nil then
@MusicaAtual:= GetProcAddress(vHandle,`MusicaAtual`);
finalization
isto fará com que a DLL seja chamada para a memória.
Agora vá no OnClose do formulário ou e coloque o seguinte código:
try
if vHandle <> 0 then
FreeLibrary(vHandle);
except
end;
Para chamar o procedure da DLL chame assim:
MusicaAtual(Parâmetros);
Pronto... agora ele da load na DLL e chama o processo quando você quiser!
Um Abraço! até a próxima.