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

 
procedure TForm3.BitBtn1Click(Sender: TObject);
var
  i:Integer;
  str:String;
begin
  for i:=0 to CheckListBox1.Items.Count-1 do begin
    if CheckListBox1.Checked[i] = True then begin
      str:=reg.GetInternalKey('.' + CheckListBox1.Items[i]);
      if str <> '' then
        reg.UnregisterType('.' + LowerCase(ChecklistBox1.Items[i]));

      if reg.RegisterType('.' + ChecklistBox1.Items[i],ChecklistBox1.Items[i] + 'File123',ChecklistBox1.Items[i] + 'Dateien',GetExeDir + 'icons\' + CheckListBox1.Items[i] + '.ico') then begin
        reg.AddHandler('Play','"' + ParamStr(0) + '"' + ' "%1"','Wiedergabe');
        reg.AddHandler('NADD','"' + ParamStr(0) + '"' + ' \NADD "%1"','Zur Neuen Playlist hinzufügen');
        reg.SetDefaultHandler('Play');
      end;
    end;
  end;
  close;
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:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    lbFiles: TListBox;
    procedure WMCopyData(var Message: TMessage); message WM_COPYDATA;
    procedure SetAppHWnd;
    class function IsFirstInstance: Boolean;
    class procedure CloseOpenHandles;
    class function GetAppHWnd: HWND;
    class procedure CreateMMF;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  WM_USER_COPYDATA = WM_USER + $101;

type
  PUserCopyData = ^TUserCopyData;
  TUserCopyData = packed record
    FileName: array[0..MAX_PATH-1] of Char;
  end;

  PMMFData = ^TMMFData;
  TMMFData = packed record
    AppHWnd: HWND;
  end;

var
  hSemaphore: THandle;
  MMFHandle: THandle;
  MMFData: PMMFData;

{ TForm1 }

{--------------------------------------------------------------------------------------------------}

class procedure TForm1.CloseOpenHandles;
begin

  if hSemaphore <> 0 then
  begin
    CloseHandle(hSemaphore);
    hSemaphore := 0;
  end;

  if Assigned(MMFData) then
  begin
    UnmapViewOfFile(MMFData);
    MMFData := nil;
  end;

  if MMFHandle <> 0 then
  begin
    CloseHandle(MMFHandle);
    MMFHandle := 0;
  end;

end;

{--------------------------------------------------------------------------------------------------}

class procedure TForm1.CreateMMF;
begin

  MMFHandle := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, SizeOf(TMMFData),
    '{56AA1BD8-F1E1-4206-AC5D-7323F0E6FC14}');

  if MMFHandle <> 0 then
    MMFData := MapViewOfFile(MMFHandle, FILE_MAP_ALL_ACCESS, 0, 0, SizeOf(TMMFData));

end;

{--------------------------------------------------------------------------------------------------}

class function TForm1.GetAppHWnd: HWND;
begin

  if Assigned(MMFData) then
    Result := MMFData^.AppHWnd
  else
    Result := 0;

end;

{--------------------------------------------------------------------------------------------------}

class function TForm1.IsFirstInstance: Boolean;
var
  UserCopyData: TUserCopyData;
  CopyDataStruct: TCopyDataStruct;
  AppHWnd: HWND;
begin

  CreateMMF;
  hSemaphore := CreateSemaphore(nil, 0, 1, '{BBE56D31-B7FB-4E03-9546-D14392D459CC}');

  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    AppHWnd := TForm1.GetAppHWnd;
    if (ParamCount > 0) and (IsWindow(AppHWnd)) then
    begin
      FillChar(UserCopyData, SizeOf(TUserCopyData), 0);
      StrLCopy(UserCopyData.FileName, PChar(ParamStr(1)), MAX_PATH);
      CopyDataStruct.dwData := WM_USER_COPYDATA;
      CopyDataStruct.cbData := SizeOf(TUserCopyData);
      CopyDataStruct.lpData := @UserCopyData;
      SendMessage(AppHWnd, WM_COPYDATA, 0, LPARAM(@CopyDataStruct));
    end;
    Result := False;
  end else
    Result := True;

end;

{--------------------------------------------------------------------------------------------------}

procedure TForm1.SetAppHWnd;
begin

  if Assigned(MMFData) then
    MMFData^.AppHWnd := Self.Handle;

end;

{--------------------------------------------------------------------------------------------------}

procedure TForm1.WMCopyData(var Message: TMessage);
begin

  if PCopyDataStruct(Message.LParam)^.dwData = WM_USER_COPYDATA then
  begin
    lbFiles.Items.Add(PUserCopyData(PCopyDataStruct(Message.LParam)^.lpData)^.FileName);
  end else
    inherited;

end;

{--------------------------------------------------------------------------------------------------}

procedure TForm1.FormCreate(Sender: TObject);
begin

  SetAppHWnd;
  lbFiles := TListBox.Create(Self);

  with lbFiles do
  begin
    Parent := Self;
    Align := alClient;
  end;

  if ParamCount > 0 then
    lbFiles.Items.Add(ParamStr(1));

end;

{--------------------------------------------------------------------------------------------------}

initialization
  if not TForm1.IsFirstInstance then
    Halt(0);

finalization
  TForm1.CloseOpenHandles;

{--------------------------------------------------------------------------------------------------}

end.					

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

procedure TForm1.OneInstance1GetParams(Sender: TObject;
  const Args: array of String);
var
  i:Integer;
begin
  if UpperCase(Args[1]) = '\NADD' then begin
    Neu2Click(Sender);
    for i:=2 to HIGH(args) do
      AddPlayliste( Args[i] );
  end
  else begin
    for i:=1 to HIGH(args) do
      AddPlayliste( Args[i] );
  end;

end;