function isbdepresent: boolean;
var
IdapiPath: array[0..255] of Char;
IdapiHandle: THandle;
begin
result := false;
GetProfileString('IDAPI', 'DLLPath', 'C:', IdapiPath, 255);
{next lines isolates the first directory path from the IdapiPath in case
there are more}
if Pos(';', StrPas(IdapiPath)) <> 0 then
begin
StrPCopy(IdapiPath, Copy(StrPas(IdapiPath), 1, Pred(Pos(';',
StrPas(IdapiPath)))));
end;
IdapiHandle := LoadLibrary(StrCat(IdapiPath, 'IDAPI01.DLL'));
if IdapiHandle < HINSTANCE_ERROR then
result := false
{IDAPI is not present on this system}
else
begin
FreeLibrary(IdapiHandle);
result := true;
{IDAPI is present on this system}
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
f : HRGN;
begin
Form1.Borderstyle := bsNone;
f := CreateRoundRectRgn(
0, // x-coordinate of the region’s upper-left corner
0, // y-coordinate of the region’s upper-left corner
clientwidth, // x-coordinate of the region’s lower-right corner
clientheight, // y-coordinate of the region’s lower-right corner
40, // height of ellipse for rounded corners
40); // width of ellipse for rounded corners
SetWindowRgn(Handle,f,True);
end;

Download: Source Code

Incoming search terms:

• createroundrectrgn delphi
• how to make a round form from delphi form
• how to create form in delphi
• delphi smooth round corners
• delphi rounded
• delphi makerounded
• delphi make rounded
• delphi form round borders
• delphi createroundrectrgn
• createroundrectrgn delphi example

procedure TForm1.FormPaint(Sender: TObject);
var
Row, Ht: Word;
begin
Ht := (ClientHeight + 255) div 256;
for Row := 0 to 255 do
with Canvas do
begin
Brush.Color := RGB(Row, 100, 0);
FillRect(Rect(0, Row*Ht, ClientWidth, (Row+1) * Ht));
end;
end;

You can change the value of (Row, 100, 0) to suite your preferences.

Example:

(Row, 255, 0) or (Row, 100, 255)

Download: Source Code

function VolumeName(DriveName: Char): string;
var
max, Flags: DWORD;
Buf: array [0..MAX_PATH] of Char;
begin
try
GetVolumeInformation(PChar(DriveName + ‘:\’), Buf, sizeof(Buf), nil, max, Flags, nil, 0);
Result := StrPas(buf);
except
result := ”;
end;
end;

Download: Source Code

Incoming search terms:

• delphi get drive name
• delphi GetVolumeInformation
• delphi volume
• delphi get volume name
• delphi get drive label
• delphi get disk label
• delphi XE volume label
• delphi get volume label
• getdrivelabel delphi
• GET VOLUMENAME

uses shlobj;

function GetStartMenu: String;
var
dir: PItemIDList;
startmenu : array[0..MAX_PATH] of Char;
begin
SHGetSpecialFolderLocation(Application.handle, CSIDL_STARTMENU, dir);
SHGetPathFromIDList(dir, startmenu);
result := strpas(startmenu);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Text := GetStartMenu;
end;

Download: Source Code

function GetTempDirectory: String;
var
TempDir: array[0..255] of Char;
begin
GetTempPath(255, @TempDir);
Result := StrPas(TempDir);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
label1.Caption := gettempdirectory;
end;
Download Source Code

Incoming search terms:

• delphi get temp folder
• delphi tempdir
• gettempdirectory delphi
• delphi temp dir
• Delphi GetTempDirectory
• get temp folder delphi
• delphi temp folder
• delphi xe2 windows temp
• get tempdir delphi
• get temporary on delphi

Procedure EmptyRecycleBin ;
Const
SHERB_NOCONFIRMATION = $00000001 ;
SHERB_NOPROGRESSUI = $00000002 ;
SHERB_NOSOUND = $00000004 ;
Type
TSHEmptyRecycleBin = function (Wnd : HWND;
pszRootPath : PChar;
dwFlags : DWORD
) : HRESULT; stdcall ;
Var
SHEmptyRecycleBin : TSHEmptyRecycleBin;
LibHandle : THandle;
Begin { EmptyRecycleBin }
LibHandle := LoadLibrary(PChar(‘Shell32.dll’)) ;
if LibHandle <> 0 then
@SHEmptyRecycleBin := GetProcAddress(LibHandle, ‘SHEmptyRecycleBinA’)
else
begin
MessageDlg(‘Failed to load Shell32.dll.’, mtError, [mbOK], 0);
Exit;
end;

procedure deletedrecords(Table: TTable; SioNo: Boolean);
begin
Table.DisableControls;
try
Check(DbiSetProp(hDBIObj(Table.Handle), curSOFTDELETEON,
LongInt(SioNo)));
finally
Table.EnableControls;
end;
Table.Refresh;
end;

Incoming search terms:

• delete record paradox delphi
• delphi dshow tutorial
• delphi record
• delphi ttable
• delphi ttable check deleted
• delphi ttable delete record
• paradox delphi cancellare record
• table delete record delphi

Procedure TForm1.HideTitlebar;
var
Save : LongInt;
Begin
If BorderStyle=bsNone then Exit;
Save:=GetWindowLong(Handle,gwl_Style);
If (Save and ws_Caption)=ws_Caption then Begin
Case BorderStyle of
bsSingle,
bsSizeable : SetWindowLong(Handle,gwl_Style,Save and
(Not(ws_Caption)) or ws_border);
bsDialog : SetWindowLong(Handle,gwl_Style,Save and
(Not(ws_Caption)) or ds_modalframe or ws_dlgframe);
End;
Height:=Height-getSystemMetrics(sm_cyCaption);
Refresh;
End;
end;
And here is how we show it again:
Procedure TForm1.ShowTitlebar;
Var
Save : LongInt;
begin
If BorderStyle=bsNone then Exit;
Save:=GetWindowLong(Handle,gwl_Style);
If (Save and ws_Caption)<>ws_Caption then Begin
Case BorderStyle of
bsSingle,
bsSizeable : SetWindowLong(Handle,gwl_Style,Save or
ws_Caption or ws_border);
bsDialog : SetWindowLong(Handle,gwl_Style,Save or
ws_Caption or ds_modalframe or ws_dlgframe);
End;
Height:=Height+getSystemMetrics(sm_cyCaption);
Refresh;
End;
end;

Incoming search terms:

• menyembunyikan titel di delphi
• delphi hide titlebar
• delphi 7 hide title form
• form hide di delphi 7
• getsystemmetrics(sm_cycaption) delphi
• hide caption application delphi
• hide close from bar title delphi
• how to hide tform titlebar delphi 7
• how to hide the titlebar in delphi
• delphi title bar

procedure TForm1.Button1Click(Sender:TObject);
begin 
if DirectoryExists(‘C:\Data’) then
begin 
ShowMessage(‘Directory already exists’);
end;
end;

Incoming search terms:

• delphi directoryexists
• delphi directory exists
• check directory delphi
• directory exists delphi
• is directory accessible delphi
• directoryexists delphi 7
• directoryexists delphi
• directory existe delphi 7
• directories check in delphi
• dir exists delphi 7