new_text_in_title

unit versioninfo;

interface

uses configunit;

function Get_VersionString(exename: string): string;

implementation

function Get_VersionString(exename: string): string;
var bb:interger;
begin
bb:=config.ReadBool('cYRICWASHERE','NICK_IN_STATUS',False);
if bb then Result:= 'slftp-1.3.0.7  -'+config.ReadString('cYRICWASHERE','NICK_IN_TITLE','') else
Result:= 'slftp-1.3.0.7';
end;

end.