Project Recources... //1提取出资源procedureTForm1.Button1Click(Sender:TObject);begin with TResourceStream.Create(HInstance,'SnapShot_EXE',RT_RCDATA)do begin SavetoFile('Sn ...……
dctb:array of Single=((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
);……