Die Stringliste ist in der
DLL.
Delphi-Quellcode:
type
TKontextMenuShellExt = class(TComObject, IShellExtInit, IContextMenu)
public
tempstrlist:tstringlist;
und bei dem hier wird sollte sie erstellt werden
function TKontextMenuShellExt.SEInitialize(pidlFolder: PItemIDList;
lpdobj: IDataObject; hKeyProgID: HKEY): HResult;
begin
temp:=tstringlist.Create;
so dass, das hier möglich ist
function TKontextMenuShellExt.InvokeCommand(var lpici: TCMInvokeCommandInfo): HResult;
var i:integer;
begin
...
for i:=0 to temp.Count-1 do
SendMSG(pchar(temp.strings[i]));
[edit=SirThornberry]Delphitags ergänzt. Mfg, SirThornberry[/edit]