M
maozhuxi
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm2.FormActivate(Sender: TObject);
begin
if IsCreat then
begin
sndplaysound(pchar(ExeRoot+'/sound/login.wav'),snd_async);
ShowBar(3);
ShowFrame(3);
IsCreat := False;
end;
end;
我在别人的程序中看见的,不知道是什么意思,还需请教。
begin
if IsCreat then
begin
sndplaysound(pchar(ExeRoot+'/sound/login.wav'),snd_async);
ShowBar(3);
ShowFrame(3);
IsCreat := False;
end;
end;
我在别人的程序中看见的,不知道是什么意思,还需请教。