Well we must have different ideas of what a simple case is, the script you posted isn't really runable for anyone without those text files, but anyway I left most of your script intact and just changed the readfiles to a file that should exist on anyones computer, and kept the rest of your script, but just added 1 line to create a popupmenu with a couple entries that are runable, and for me xy stays in the BG when I run it, if it doesn't work for you then you should be able to test it with the XY_Send that klownboy linked to, and if that works then you will know the issue is in your implementation of WM_COPYDATA. BTW the msg I am sending is just
::load 'file.xys';
Code: Select all
if (exists("C:\Program Files\Dyalog")) {// if dyalog is not disabled atm
//$proj = readfile("<xyscripts>\AppLauncher-DyalogMenu_1.txt")
$proj = readfile(<xytagdat);
} else {// dyalog IS disabled...
//$proj = readfile("<xyscripts>\AppLauncher-DyalogMenu_0.txt")
$proj = readfile(<xytagdat>);
}
$proj = listfolder(<xydata>, "*.ini", 1, <crlf>); // ADDED ONLY THIS LINE JUST TO POPULATE THE MENU EASILY
if ("<curitem>" == "") {
$proj = regexreplace($proj,"^.*<curi" . "tem>.*$","");// don't use <curitem> when looking for it as a string
}
$sel = popupnested($proj);
end $sel == "";
if (":" == substr($sel,0,1)) {
$sel = substr($sel,1,strlen($sel)-1);
$sel = replace($sel,"⋄⋄",";");
} else {
$sel = "run ". quote($sel);
}
load $sel, , "s";
@klownboy: It is actually an app my brother made for me with a lot of customization I asked him to implement, but I just tested the one you linked to, and it functions the same in this scenario. I used to use my own heavily customized ahk version I cobbled together from posts on the forum, I think the orig was called messenger, but I no longer do.