unit U_globalVar; interface uses Messages; var gUserName:string; gUserId:string; gDllFileName :string; const WM_CloseForm = WM_USER + 100 ; implementation end.