All pastes #1488936 Raw Edit

slftp_VersionString_MOD

public text v1 · immutable
#1488936 ·published 2009-07-08 22:49 UTC
rendered paste body
{
open slftp.ini and add: 
 
[cYRICWASHERE]
NICK_IN_TITLE=NICK
NICK_IN_STATUS=False
 
NICK_IN_TITLE=NICK < the nick u wanna see in title..
NICK_IN_STATUS=False < True or False
 
}
 
 
{ in console.pas search: }
 
vl:= TslLabel.Create(Get_VersionString(ParamStr(0)), menubartop);
 
{ replace it with: }
 
vl:= TslLabel.Create(MOD_VersionString(ParamStr(0)), menubartop);
 
//-----------------------------------------------------------------
 
{in versioninfo
add under:}
 
interface
 
{this:}
uses configunit;
 
function MOD_VersionString(exename: string): string;
 
{add over:}
 
end.
 
{this:}
 
function MOD_VersionString(exename: string): string;
var bb:boolean;
begin
bb:=config.ReadBool('cYRICWASHERE','NICK_IN_STATUS',False);
if bb then Result:= 'slftp-1.3.0.7  -'+config.ReadString('cYRICWASHERE','NICK_IN_TITLE','MODDED') else
Result:= 'slftp-1.3.0.7';
end;

{OR}

function MOD_VersionString(exename: string): string;
begin
if config.ReadBool('cYRICWASHERE','NICK_IN_STATUS',False) then Result:= 'slftp-1.3.0.7  -'+config.ReadString('cYRICWASHERE','NICK_IN_TITLE','MODDED') else
Result:= 'slftp-1.3.0.7';
end;
 
nJOY!