// --------------------------------------------------------------------
// clarc smartSearch Script
// --------------------------------------------------------------------
EdQuery := Replace(Query, chr($0d) + chr($0a),' ');
Temp    := CheckPathExt(GetEnvironMentVar('Temp')) + 'ccssarclist.eal';

ArcList := '';
ArcList := ArcList + '$(#DEMO)\Media' + chr($0d) + chr($0a);
ArcList := ArcList + '$(#DEMO)\Belege' + chr($0d) + chr($0a);
ArcList := ArcList + '$(#DEMO)\Office' + chr($0d) + chr($0a);

WriteStringtoFile(Temp,ArcList);

ShellExecuteExt('ezcbdf32.exe','"/A:@'+Temp+'" "/QRY:'+EdQuery+'" /STARTQRY', SW_SHOW);
// --------------------------------------------------------------------