*iBan* ( Mediaplayer )

[Garfield]

Delphi-Quellcode:

  if Style = 'XP' then
    od.InitialDir:= 'C:\Dokumente und Einstellungen\' + UN + '\Eigene Dateien\EigeneMusik\'
  else if Style = 'Vista' then
    od.InitialDir:= 'C:\Users\' + UN + '\Music\';

Das ist nicht so gut. Da solltest Du Dir mal dies ansehen.

Delphi-Quellcode:

  if fileexists( 'form.ini' ) then
  begin
    Ini:= TInifile.Create( extractfilepath( paramstr( 0 ) ) + '\form.ini' );
    Style:= ini.ReadString( 'Style', 'Form', '' );
    if ini.ReadString( 'Volume', 'Vol', '' ) <> '' then
      Vol:= strtoint( ini.readstring( 'Volume', 'Vol', '' ) )
    else
      Vol:= 50;
    Ini.Free;
  end;

besser

Delphi-Quellcode:

  Ini:= TInifile.Create( extractfilepath( paramstr( 0 ) ) + '\form.ini' );
  Style:= ini.ReadString( 'Style', 'Form', '' );
  Vol := ini.ReadInteger( 'Volume', 'Vol', 50);
  Ini.Free;