qwerty писал(а):
узнать имя (имя файла) запущенной программыqwerty, для своей программы проще делать так:
Add(MainForm,8206928,322,105)
{
Caption="Гадя Петрович Хренова"
Point(Handle)
link(onCreate,12182008:doString,[])
}
Add(Message,3912304,406,119)
{
}
Add(FormatStr,12182008,364,119)
{
DataCount=1
Mask="Папа! Ты меня не помнишь ?!
Это же я,
%1 !"
link(onFString,3912304:doMessage,[])
link(Str1,11994668:AppFileName,[])
}
Add(Application,11994668,364,63)
{
}
или даже так:
Add(MainForm,8206928,322,98)
{
Caption="Гадя Петрович Хренова"
Point(Handle)
link(onCreate,16477370:doPart,[])
}
Add(Message,3912304,448,112)
{
Caption="Весточка от кровинки"
}
Add(FormatStr,12182008,406,112)
{
DataCount=1
Mask="Папа! Ты меня не помнишь ?!
Это же я, %1 ! "
link(onFString,3912304:doMessage,[])
}
Add(Application,11994668,364,63)
{
}
Add(FilePartElm,16477370,364,112)
{
link(onPart,12182008:doString,[])
link(FileName,11994668:AppFileName,[])
}
А у любого другого приложения имя узнаём примерно так:
Add(MainForm,8206928,560,238)
{
Height=12
Caption="Ищейка"
BorderStyle=4
Point(Handle)
link(onCreate,265935:doPopup,[])
}
Add(WinInfo,5645610,371,238)
{
Point(ProcessID)
link(onWinInfo,10869016:doFindID,[(415,244)(415,251)])
link(Handle,11222117:Handle,[(377,226)(391,226)])
}
Add(EnumProcess,10869016,427,238)
{
TimeOut=1
Point(doFindName)
Point(FullPath)
Point(onFind)
link(ID,5645610:ProcessID,[(433,226)(412,226)(412,282)(391,282)])
link(onFind,16477370:doPart,[(467,251)(467,244)])
}
Add(MouseEvent,11222117,371,182)
{
Point(Handle)
}
Add(Timer,1408884,329,238)
{
link(onTimer,5645610:doWinInfo,[])
}
Add(FormatStr,12182008,518,238)
{
DataCount=1
Mask="Под курсором мыши - окно приложения %1."
link(onFString,8206928:doCaption,[])
}
Add(FilePartElm,16477370,476,238)
{
link(onPart,12182008:doString,[])
link(FileName,10869016:FullPath,[(482,226)(464,226)(464,281)(440,281)])
}
Add(WinTools,265935,616,245)
{
link(Handle,8206928:Handle,[(622,233)(600,233)(600,280)(566,280)])
}