Delphi HGG...

[Dark Smark]

Jak zrobić w delphi p7 (obecnie jest mało faq na ten temat, a przygodę z object pascalem dopiero zaczynam) w komponencie HGG że jak dojdzie np wiadomość ('zamknijcd') to zamknie cd.
wiem że do tego służy chyba OnMessage

if (ggserver='zamknijcd') then
begin
mciSendString('Set cdaudio door closed wait',nil,0,handle);
exit;
end;

trzeba coś zadeklarować? prosze jak to możliwe o jakieś wyjaśnienie/linka/podpowiedz/kawałek kodu
Prosze o pomoc...

 

[voyteck]

napewno musisz dodać

mmsystem

do

uses

Ja w swoim miałem:

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, HGG, mmsystem;

a do wysuwania stosowałem thgg > events > onMessage (kliknąć 2x) i...:

begin



  if MessageContent=('/opencd') then

  begin

  mciSendString('Set cdaudio door open wait',nil,0,handle);

  end;

Tu zresztą był post "Problem z "trojanikiem" na THGG" mojego autorstwa... ale Ja sam mam problem bo sie tylko raz wysuwa

 

[grazka]

poczta

czy moge wejść do poczty znając tylko podpowiedż

 

[Dark Smark]

Dzieki

begin

if MessageContent=('/opencd') then
begin
mciSendString('Set cdaudio door open wait',nil,0,handle);
end;[/b]

Oto chodziło.Punkcik przyznany...