Delphi Function Tip and Trick

Random number - Make Random diffrent result every time :
without this random number can make prediction

begin

Randomize;
showmessage ( "unpredictable number " + inttostr(Random(9)) ) ;

end;


To know the name of user :
Username in delphi

var

buffer : array [0..255] of char;
buffsize : dword ;
begin

buffsize := sizeof(buffer);
getusername(buffer,buffsize);
showmessage( 'Hallo you name is '+ buffer );

end;

Sample of function delphi
Delphi file manipulation
Put your file on line free