<< Click to Display Table of Contents >> Navigation:  »No topics above this level« Delphi Examples: DbiGetClientInfo

Display a message box containing system-level information about client application.

This example uses the following input:

 ShowClientInfo;

 

The procedure is defined as:

procedure ShowClientInfo;

const

 InfoStr = 'Name: %s'#13#10'Number of sessions: %d'#13#10 +

   'Working directory: %s'#13#10'Language: %s';

var

 ClientInf: ClientInfo;

begin

 Check(DbiGetClientInfo(ClientInf));

with ClientInf do

   ShowMessage(Format(InfoStr, [szName, iSessions, szWorkDir, szLang]));

end;