RTFormwork/public10/design/U_globalVar.pas

21 lines
250 B
ObjectPascal
Raw Normal View History

2024-07-07 09:35:27 +08:00
unit U_globalVar;
interface
uses
Messages;
var
gUserName:string;
gUserId:string;
gDllFileName :string;
gDllFileCaption :string;
gConString:string ;
gIsCanDesign:Boolean;
const
WM_CloseForm = WM_USER + 100 ;
implementation
end.