With the following function we can use the GetAliasParams method of TSession to get the directory mapping for an alias.
Archive for the ‘Delphi Tutorial’ Category
How to get BDE alias info
Monday, February 12th, 2007Extract an Icon From Application
Monday, February 5th, 2007Extract an icon from application.
Replace Text
Thursday, February 1st, 2007A text replace function for strings.
How to make a desktop screenshot?
Sunday, January 21st, 2007function 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, 2007Here Borland Database Engine (BDE) error list: