Здравствуйте, xZero, Вы писали:
Z>Как из этих файлов вытащить название файла, который они запускают?
IObject := CreateComObject(CLSID_ShellLink);
SLink := IObject as IShellLink;
SFile := IObject as IPersistFile;
StringToWideChar(strFile,f,MAX_PATH);
SFile.Load(f,STGM_READ);
SLink.Resolve(MainForm.Handle,SLR_ANY_MATCH);
SLink.GetPath(path,MAX_PATH,data,0);
WBR, oles
... << RSDN@Home 1.1 beta 1 >>