function DiskSize(Drive: Byte): Integer;
Retorna o tamanho em bytes do driver especificado.
Onde : 0 = Corrente, 1 = A, 2 = B,...
DiskFree retorna –1 se o driver for inválido
var
S: string;
begin
S := IntToStr(DiskSize(0) div 1024) + Kbytes capacity.;
Canvas.TextOut(10, 10, S);
end;
function EncodeDate(Year, Month, Day: Word): TDateTime;
Retorna uma Data formada por Year, Month e Day
procedure TForm1.Button1Click(Sender: TObject);
var
MyDate: TDateTime;
begin
MyDate := EncodeDate(83, 12, 31);
Label1.Caption := DateToStr(MyDate);
end;
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
Retorna a Hora formada por Hour, Min, Sec e MSec
procedure TForm1.Button1Click(Sender: TObject);
var
MyTime: TDateTime;
begin
MyTime := EncodeTime(0, 45, 45, 7);
Label1.Caption := TimeToStr(MyTime);
end;
function ExtractFileDir(const FileName: string): string;
Retorna o diretório adequado para ser passado para as funções CreateDir, GetCurrentDir, RemoveDir e SetCurrentDir.
O resultado da função é uma string vazia se FileName não contiver um drive e um caminho.
function ExtractFileDrive(const FileName: string): string;
Retorna uma string contendo o drive do path de um arquivo.
function ExtractFileExt(const FileName: string): string;
Retorna a extensão do arquivo FileName
function ExtractFileName(const FileName: string): string;
Retorna o nome do arquivo
Form1.Caption := Editing + ExtractFileName(FileName);