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

procedure TForm1.Button1Click(Sender: TObject);
var
  H: HWnd;
  Rect: TRect;
begin
  H := FindWindow('ProgMan', nil);
  if H <> 0 then
  begin
    GetWindowRect(H, Rect);
    showmessage(inttostr(rect.Right) + '/' + inttostr(rect.Bottom));
  end;
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
  rect: Trect;
  monitor: TMonitor;
  x: integer;
begin
  rect := Form1.ClientRect;
  monitor := screen.monitorfromrect(rect);
  x := monitor.Width;
  showmessage(inttostr(x));
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:

unit m3u;

interface

uses sysutils, classes;

const
  M3UStart = '#EXTM3U';
  M3UItem = '#EXTINF:0,';

procedure LoadM3U(Target: TStrings; Filename: string);
procedure SaveM3U(Source: TStrings; Filename: string);

implementation

procedure LoadM3U(Target: TStrings; Filename: string);
var
  StringList: TStringlist;
  i: integer;
begin
  Stringlist := TStringlist.Create;
  try
    Stringlist.LoadFromFile(Filename);
    for i := 0 to Stringlist.Count - 2 do
      if Stringlist[i] = M3UItem then
        Target.Add(Stringlist[i + 1])
  finally
    Stringlist.Free;
  end;
end;

procedure SaveM3U(Source: TStrings; Filename: string);
var
  StringList: TStringList;
  i: integer;
begin
  StringList := TStringlist.Create;
  try
    Stringlist.add(M3UStart);
    for i := 0 to Source.Count - 1 do
      begin
        Stringlist.add(M3UItem);
        Stringlist.add(Source[i]);
        Stringlist.add('');
      end;
    Stringlist.SaveToFile(Filename);  
  finally
    StringList.Free;
  end;
end;

end.                    

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

function strtwo(int: integer): string;
begin
  result := inttostr(int);
  if (length(result) < 2) and (length(result) >= 0) then
    result := '0' + result;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
var
  pos: integer;
begin
  pos := mplayer.position;
  TB_TrackPos.Position := pos;
  L_Time.caption := strtwo(pos div 1000 div 3600) + ':' + strtwo((pos div 1000) div 60) + ':' + strtwo((pos div 1000) mod 60);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TMainForm.Timer1Timer(Sender: TObject);
var
  pos: integer;
begin
  pos := mplayer.position;
  TB_TrackPos.Position := pos;
//L_Time.caption := strtwo(pos div 1000 div 3600) + ':' + strtwo((pos div 1000) div 60) + ':' + strtwo((pos div 1000) mod 60);
  L_Time.caption:= Format ('%d:%.2d:%.2d', [pos div 1000 div 3600, (pos div 1000) div 60, (pos div 1000) mod 60]);
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:

unit m3u;

interface

uses sysutils, classes;

const
  M3UStart = '#EXTM3U';
  M3UItem = '#EXTINF:';

procedure LoadM3U(Target: TStrings; Filename: string);
procedure SaveM3U(Source: TStrings; Filename: string);

implementation

procedure LoadM3U(Target: TStrings; Filename: string);
var
  StringList: TStringlist;
  str: string;
  i: integer;
begin
  Stringlist := TStringlist.Create;
  try
    Stringlist.LoadFromFile(Filename);
    for i := 0 to Stringlist.Count - 2 do
      begin
        str := Stringlist[i];
        if copy(str, 0, length(M3UItem)) = M3UItem then
          Target.Add(Stringlist[i + 1])
      end;    
  finally
    Stringlist.Free;
  end;
end;

procedure SaveM3U(Source: TStrings; Filename: string);
var
  StringList: TStringList;
  i: integer;
begin
  StringList := TStringlist.Create;
  try
    Stringlist.add(M3UStart);
    for i := 0 to Source.Count - 1 do
      begin
        Stringlist.add(M3UItem);
        Stringlist.add(Source[i]);
        Stringlist.add('');
      end;
    Stringlist.SaveToFile(Filename);  
  finally
    StringList.Free;
  end;
end;

end.                    

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

SethMP3
-------

- Playlist Anzeige

- Design