Und zwar möchte ich probieren die eigenen Profilangaben (ICQ) zu ändern. In dem SDK habe ich die Messages PM_PLUGIN_DETAILS_GET bzw. PM_PLUGIN_SET_DETAILS. Allerdings bin ich mir selber noch gar nicht sicher ob man damit sein eigenes Profil modifizieren kann oder nur die zwischengespeicherten Profile seiner Kontakte. Allerdings ist es mir nichtmal gelungen die Daten eines Kontaktes bzw. mir selbst auszulesen obwohl ich mich möglichst nah an das SDK gehalten habe. Evtl. gibts aber auch Probleme mit dem DllHandle welches man übergeben muss, dort habe ich etwas geschummelt. Siehe Code:
Code: Alles auswählen
procedure TQipPlugin.DoTheMagic;
var
PlugMsg1:TPluginMessage;
AccountName:WideString;
hIcq:Cardinal;
Details:pContactDetails;
begin
AccountName := '43....98';
hIcq := GetModuleHandle('inficq.dll');
PlugMsg1.Msg := PM_PLUGIN_DETAILS_GET;
PlugMsg1.DllHandle := FPluginInfo.DllHandle;
PlugMsg1.WParam := hIcq;
PlugMsg1.LParam := LongInt(PWideChar(AccountName));
FPluginSvc.OnPluginMessage(PlugMsg1);
if (Boolean(PlugMsg1.Result)) then begin
Details := pContactDetails(PlugMsg1.NParam);
MessageBox(0, PChar(DateToStr(Details.BirthDate)), 'geb', 0);
end;
end;
Hat da jemand Lösungsvorschläge?