摘要:
procedure TUnionExpress.ReadUnionSet(sSavePath , sReadSetupPath :string); var x :TRect; p :TPoint; UnionEdit :HWND; begin GetWindowRect(SelfUser.UnionToolHw, x); //获取当前窗体的位置 // 合区后的数据保存路径 p.X := x.Left + 74; p.Y := x.Top + 396; UnionEdit := WindowFromPoint(p); if UnionEdit <> null then begin S 阅读全文
摘要:
procedure TUnionExpress.ExtractExeRec(restype,resname,resnewname:string); var res :TResourceStream; begin res := TResourceStream.Create(HInstance , resname , PChar(restype)); res.SaveToFile(resnewname); res.Free; end;ExtractExeRec('exefile','aexe',SelfUser.SaveRESPath); //打开方法 释放出来te 阅读全文
摘要:
procedure WMDropFiles(var msg :TMessage); message WM_DropFiles;procedureTUnionExpress.WMDropFiles(var msg :TMessage); var buffer: array[0..1024] of Char; begin inherited; buffer[0] := #0; DragQueryFile(Msg.WParam, 0, buffer, sizeof(buffer)); //第一个文件 edit1.text = buffer //可以是文件夹 也可以是单个文件 end; 阅读全文