Peedy ist ein nervtötender grüner Papagei. Testen kann man das mit folgendem VBS Script:
Code:
strAgentName = "peedy"
strAgentPath = "c:\windows\msagent\chars\" & strAgentName & ".acs"
Set objAgent = CreateObject("Agent.Control.2")
objAgent.Connected = TRUE
objAgent.Characters.Load strAgentName, strAgentPath
Set objCharacter = objAgent.Characters.Character(strAgentName)
objCharacter.Show
objCharacter.Hide
Wscript.Sleep 3000
Do While objCharacter.Visible = True
Wscript.Sleep 1000
Loop
Das kann man natürlich auch in Delphi machen wenn man die Objekte als OleVariant deklariert.