sounds.~pas

来自「学生信息管理系统」· ~PAS 代码 · 共 26 行

unit sounds;

interface
uses mmsystem, Windows,  SysUtils;

 var  ssounds: array[0..10] of Pointer;
      ssoundsm: array[0..10]of  integer;
      fsnumbera: integer;

implementation

{$R sounds.res}

initialization
   // 此处我们使用类型转换从而避免使用另一个变量
   for fsnumbera := 0 to 10 do begin
     ssounds[fsnumbera] := Pointer(FindResource(hInstance, Pchar('sounds'+inttostr(fsnumbera)), 'wave'));
          if ssounds[fsnumbera] <> nil then begin
                  ssounds[fsnumbera] := Pointer(LoadResource(hInstance, HRSRC(ssounds[fsnumbera])));
                  if ssounds[fsnumbera] <> nil then ssounds[fsnumbera] := LockResource(HGLOBAL(ssounds[fsnumbera]));
     end;
   end;


end.