21 lines
250 B
ObjectPascal
21 lines
250 B
ObjectPascal
|
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.
|