1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

 //Init Sound Modules
  modc      := 3;
  for i:= 1 to modc do
    begin
      case i of
        1:  begin
              MyResource  :=FindResource(HInstance, 'RES7', RT_RCDATA);
            end;
        2:  begin
              MyResource  :=FindResource(HInstance, 'RES8', RT_RCDATA);
            end;
        3:  begin
              MyResource  :=FindResource(HInstance, 'RES9', RT_RCDATA);
            end;
      end; //of case

      MyGlobal := LoadResource(HInstance,MyResource);
      pResource:= LockResource(MyGlobal);
      mods[i]  := BASS_MusicLoad(True, pResource, 0, 0, BASS_MUSIC_RAMP OR BASS_UNICODE,0);
      FreeResource(MyGlobal);
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

 //Init Sound Modules
  modc      := 3;
  for i:= 1 to modc do
    begin
      case i of
        1:  begin
              MyResource  :=FindResource(HInstance, 'RES7', RT_RCDATA);
            end;
        2:  begin
              MyResource  :=FindResource(HInstance, 'RES8', RT_RCDATA);
            end;
        3:  begin
              MyResource  :=FindResource(HInstance, 'RES9', RT_RCDATA);
            end;
      end; //of case

      MyGlobal := LoadResource(HInstance,MyResource);
      pResource:= LockResource(MyGlobal);
      ResSize  := SizeOfResource(HInstance,MyResource);
      mods[i]  := BASS_MusicLoad(True, pResource, 0, ResSize, BASS_MUSIC_RAMP OR BASS_UNICODE,0);
      FreeResource(MyGlobal);
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

for i := 1 to 3 do 
case i of 
  1: 
  begin
   //dosomething
  end;
  2: 
  begin
  //dosomethingelse
  end;
  3: 
  begin
  //dosomethingdifferent
  end;
end;					

1:
2:
3:
4:
5:
6:

procedure Dosomething;
begin
  //dosomething
  //dosomethingelse
  //dosomethingdifferent
end;					

1:
2:
3:
4:
5:
6:

case i of
 1:  begin
       MyResource  :=FindResource(HInstance, 'RES7', RT_RCDATA);
       ModPlayTime[i] := (3*60 + 39) * 1000 ; //3:39
       ModText[i]     := 'Title: XTC     Artist: Sat';
     end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function RenameFileEx(const AOldName, ANewName: string; ARenameCheck: boolean = false): boolean;
var
  sh: TSHFileOpStruct;
begin
  sh.Wnd := Application.Handle;
  sh.wFunc := fo_Move;
  sh.pFrom := PChar(AOldName + #0);
  sh.pTo := PChar(ANewName + #0);
  sh.fFlags := fof_Silent or fof_MultiDestFiles;
  if ARenameCheck then
    sh.fFlags := sh.fFlags or fof_RenameOnCollision;
  Result:=ShFileOperation(sh)=0;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function TMainForm.CopyFileEx(const ASource, ADest: string;ARenameCheck: boolean = false): boolean;
var
  sh: TSHFileOpStruct;
  ABool: Boolean;
  ACount:Integer;
begin
  ACount := 0;
  If ARenameCheck = False
    then If FileExists(ADest)
      then begin
            ABool := DeleteFile(ADest);
            while (ABool = False) AND (ACount < 40)
              do begin
                   Inc(ACount);
                   sleep(50); //wait for function
                 end;
           end;
  //-------------------
  sh.Wnd := Application.Handle;
  sh.wFunc := FO_COPY;
  // String muss mit #0#0 Terminiert werden, um das Listenende zu setzen
  sh.pFrom := PChar(ASource + #0);
  sh.pTo := PChar(ADest + #0);
  sh.fFlags := fof_Silent or fof_MultiDestFiles;
  if ARenameCheck then
    sh.fFlags := sh.fFlags or fof_RenameOnCollision;
  Result:=ShFileOperation(sh)=0;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

  //Bass-Sound System
  //Check if recent version installed
  AFileName := PathExeFile + '\' + FNameBassDLL;
  DateBassResource  := MyDecodeDate(VerDate_Bassdll);
  DateBassPC        := MyDecodeDate(FormatDateTime('dd.mm.yyyy', GetFileModifyDate(AFileName)));

  if (DateBassResource > DateBassPC)
    then begin // Programm is about to Update Bass.dll
           IsBassLoaded  := False;
           Screen.Cursor := crHourglass;


           //Define Files Names for later use
           AFileName    := PathExeFile + '\' + FNameBassDLL;      // Original Filename to replace
           AFileNameBak := PathExeFile + '\' + FNameBassDLLBak;   // File with another Name (= Backup)
           AFileTemp    := PathSave    + '\' + FNameBassDLL;

           //step-0: Inform User to confirm the question form Windows OS (UAC)
           showmessage('TrainIt wird nun ein Update des Sound-Modules (bass.dll) ausführen'+ #13+#10+
                       'Bestätigen sie dazu evtl. stattfindende Abfragen Ihres Windows-Betriebsystemes');

           //step-1: Rename the File in Program Dir
           If FileExists(AFileNameBak) then DeleteFile(AFileNameBak); //Delete new Filename, so that it doesn't exist for ReName
           RenameFileEx(AFileName,AFileNameBak,False);

           //step-2: Extract new File from within program resource into a TempDir
           If FileExists(AFileTemp) then DeleteFile(AFileTemp); //Delete File in TempPath before
           Res := TResourceStream.Create(Hinstance, 'Music_DLL', RT_RCDATA);
           try
            Res.SavetoFile(AFileTemp);  // extract from resource file
           finally
            Res.Free;
           end;

           //step-3: Copy file from temp-Path to Program Dir
               CopyFrom := AFileTemp;
               CopyTo   := AFileName;
               If FileExists(CopyFrom)
                 then begin
                        copyfileEx(CopyFrom, CopyTo);
                        DeleteFile(CopyFrom);
                        end;


           Screen.Cursor := crDefault;
           showmessage('Update durchgeführt. Bitte starten Sie TrainIt nun erneut');
           Application.Terminate;
           exit;
         end

  //----------------------
  else begin
         Load_BASSDLL(AFileName);
         if not BASS_Init(-1, 44100, 0, Handle, nil)
           then  begin
                  Showmessage('Error initializing audio!');
                  IsBassLoaded  := False;
                end
            else IsBassLoaded  := True;
       end;