установка метки, или даты exe файла
Add(MainForm,2953706,21,105)
{
Width=381
Height=118
}
Add(PEAnalysis,12460838,378,189)
{
Point(doSetDateStamp)
Point(DateStamp)
link(onCheckPEFile,14346474:doCompare,[])
link(FileName,2898232:Text,[])
}
Add(ODialog,4356894,161,182)
{
link(onExecute,3278564:doEvent1,[])
}
Add(If_else,14346474,441,189)
{
Op2=Integer(1)
link(onTrue,12460838:doGetInf,[(485,195)(485,199)(366,199)(366,202)])
}
Add(Button,11431812,77,182)
{
Left=10
Top=10
Caption="файл"
link(onClick,4356894:doExecute,[])
}
Add(DoData,6905577,294,210)
{
link(onEventData,12460838:doSetDateStamp,[])
link(Data,124643:Text,[])
}
Add(Button,2737088,203,210)
{
Left=5
Top=40
Width=90
Caption="установка даты"
link(onClick,6905577:doData,[])
}
Add(Edit,2898232,378,112)
{
Left=115
Top=10
Width=240
}
Add(Hub,3278564,252,182)
{
link(onEvent1,2898232:doText,[(339,188)(339,118)])
link(onEvent2,12460838:doCheckPEFile,[])
}
Add(Edit,124643,294,119)
{
Left=115
Top=40
Width=240
Text="12345678"
DataType=1
}
чтение/сравнение метки, или даты exe файла
Add(MainForm,5226047,224,119)
{
Height=114
}
Add(PEAnalysis,12460838,581,203)
{
Point(doSetDateStamp)
Point(DateStamp)
link(onCheckPEFile,14346474:doCompare,[])
link(FileName,2898232:Text,[])
}
Add(ODialog,4356894,364,196)
{
link(onExecute,3278564:doEvent1,[])
}
Add(If_else,14346474,644,203)
{
Op2=Integer(1)
link(onTrue,12460838:doGetInf,[(688,209)(688,213)(569,213)(569,216)])
}
Add(Button,11431812,280,196)
{
Left=10
Top=10
Caption="файл"
link(onClick,4356894:doExecute,[])
}
Add(Edit,2898232,581,126)
{
Left=115
Top=10
Width=240
}
Add(Hub,3278564,455,196)
{
OutCount=3
link(onEvent1,2898232:doText,[(542,202)(542,132)])
link(onEvent2,12460838:doCheckPEFile,[])
link(onEvent3,1485099:doText,[(525,216)(525,279)])
}
Add(Edit,1485099,581,273)
{
Left=115
Top=40
Width=235
link(Str,12460838:DateStamp,[])
}