rascs_passwordexpired = (rascs_paused + 3);
rascs_done = $2000;
rascs_connected = rascs_done;
rascs_disconnected = (rascs_done + 1);
// if using rasdial message notifications, get the notification message code
// by passing this string to the registerwindowmessagea() api.
// wm_rasdialevent is used only if a unique message cannot be registered.
rasdialevent = 'rasdialevent';
wm_rasdialevent = $cccd;
// trasprojection
rasp_amb = $10000;
rasp_pppnbf = $0803f;
rasp_pppipx = $0802b;
rasp_pppip = $08021;
rasp_slip = $20000;
type
thrasconn = thandle;
phrasconn = ^thrasconn;
trasconnstate = dword;
pdword = ^dword;
pbool = ^bool;
trasdialparams = packed record
dwsize : dword;
szentryname : array [0..ras_maxentryname] of char;
szphonenumber : array [0..ras_maxphonenumber] of char;
szcallbacknumber : array [0..ras_maxcallbacknumber] of char;
szusername : array [0..unlen] of char;
szpassword : array [0..pwlen] of char;
szdomain : array [0..dnlen] of char;
{$ifdef winver401}
dwsubentry : dword;
dwcallbackid : dword;
{$endif}
szpadding : array [0..2] of char;
end;
prasdialparams = ^trasdialparams;
trasdialextensions = packed record
dwsize : dword;
dwfoptions : dword;
hwndparent : hwnd;
reserved : dword;
end;
prasdialextensions = ^trasdialextensions;
trasconnstatus = packed record
dwsize : dword;
rasconnstate : trasconnstate;
dwerror : dword;
szdevicetype : array [0..ras_maxdevicetype] of char;
szdevicename : array [0..ras_maxdevicename] of char;
szpadding : array [0..1] of char;
end;
prasconnstatus = ^trasconnstatus;
trasconn = packed record
dwsize : dword;
hrasconn : thrasconn;
szentryname : array [0..ras_maxentryname] of char;
{$ifdef winver400}
szdevicetype : array [0..ras_maxdevicetype] of char;
szdevicename : array [0..ras_maxdevicename] of char;
{$endif}
szpadding : array [0..0] of char;
end;
prasconn = ^trasconn;
trasentryname = packed record
