Archive for the ‘Delphi Tutorial’ Category

How to get BDE alias info

Monday, February 12th, 2007

With the following function we can use the GetAliasParams method of TSession to get the directory mapping for an alias.

(more…)

Extract an Icon From Application

Monday, February 5th, 2007

Extract an icon from application.

(more…)

Replace Text

Thursday, February 1st, 2007

A text replace function for strings.

(more…)

How to make a desktop screenshot?

Sunday, January 21st, 2007

function GetDesktopScreenShot:TBitmap;
var
Desktop:HDC;
begin
Result:= TBitmap.Create;
Desktop:= GetDC(0);
try
try
Result.PixelFormat := pf32bit;
Result.Width := Screen.Width;
Result.Height := Screen.Height;
BitBlt(Result.Canvas.Handle,0,0, Result.Width, Result.Height, Desktop,0,0,SRCCOPY);
Result.Modified := True;
finally
ReleaseDC(0,Desktop);
end;
except
Result.Free;
Result:=nil;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap := GetDesktopScreenShot;
end;

Borland Database Engine (BDE) Error List

Sunday, January 21st, 2007

Here Borland Database Engine (BDE) error list:

(more…)