Jak pobrać wersje MMSystem.

TOY

Najpierw dodajemy do uses MMSystem a następnie :

procedure TForm1.Button1Click(Sender: TObject);
var
  a:Cardinal;
begin
  a:=mmsystemGetVersion;
  SpinEdit1.Value:=a;
end;

Zobacz także:

3 komentarzy

No całkiem przydatne :)

spoko..dzięki za info ;-)

Sugeruje pisać zamiast:

____
<b>Zobacz także:</b>

 * Cardinal
    http://4programmers.net/Delphi/Cardinal

:

<b>Zobacz też:</b>
* [[Delphi/Cardinal]]

Bądź jeśli chcesz zmienić tytuł dla linku, to Tytuł