20 lines
269 B
ObjectPascal
20 lines
269 B
ObjectPascal
unit U_globalVar;
|
|
interface
|
|
uses
|
|
Messages;
|
|
|
|
var
|
|
gUserName:string;
|
|
gUserId:string;
|
|
gDllFileName :string;
|
|
gDllFileCaption :string;
|
|
gConString:string ;
|
|
gIsCanDesign:Boolean;
|
|
gFontSize:integer;
|
|
const
|
|
WM_CloseForm = WM_USER + 100 ;
|
|
|
|
implementation
|
|
|
|
end.
|