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.