als in der Formelsprache geht das mit:
@Prompt( [ChooseDatabase]; ""; ""; ""; "");
/* Get the list of available servers. Setting the first parameter
to NULL gets a list of known servers on all ports.
*/
sError = NSGetServerList( (char far *) NULL, &hServerList);
if (sError != NOERROR)
{
return;
}
pServerList = (BYTE far *)OSLockObject(hServerList);
wServerCount = (WORD) *pServerList;
pwServerLength = (WORD *)(pServerList + sizeof(WORD));
pServerName = (BYTE far *) pServerList + sizeof(wServerCount) +
((wServerCount) * sizeof(WORD));
for (i=0; i<wServerCount; pServerName+=pwServerLength[i], i++)
{
memmove (szServerString, pServerName, pwServerLength[i]);
szServerString[pwServerLength[i]] = '\0';
SendDlgItemMessage(hDlg, SERVLIST_LISTBOX, LB_ADDSTRING,
(WORD) NULL,
(LONG)(LPSTR) szServerString);
}
OSUnlockObject (hServerList);
OSMemFree (hServerList);