Mki.im
Free Source code Blog for beginner
Free Source code Blog for beginner
May 12th
copy a file from a url into the directory where php file is located
allow-url-fopen has to be turned on. More >
Jul 4th
{You have to FileListBox component on the form}
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
More >
Jun 4th
function GetTimeZone: string; var TimeZone: TTimeZoneInformation; begin GetTimeZoneInformation(TimeZone); Result := 'GMT ' + IntToStr(TimeZone.Bias div -60); end; More >
Jun 4th
function Is24HourTimeFormat: Boolean; var DefaultLCID: LCID; begin DefaultLCID := GetThreadLocale; Result := 0 <> More >
Jun 4th
unit iphlp; interface uses Windows, System; const MAX_HOSTNAME_LEN = 128; MAX_DOMAIN_NAME_LEN = 128; MAX_SCOPE_ID_LEN = 256; type PIPAddressString = ^TIPAddressString; PIPMaskString = ^TIPAddressString; More >