Delphi

RGP4FGFRB5YK

greatdelphi.blogspot.com (great delphi) — Fri, 25 Nov 2011 07:00:00 PST

RGP4FGFRB5YKGet more information at http://greatdelphi.blogspot.com

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Send Email from Delphi

greatdelphi.blogspot.com (great delphi) — Sun, 22 Aug 2010 02:03:00 PDT

It can be so easy to have your application pop up an email window. Assuming that an a mail reader is installed. Uses...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

send e-mail 1

greatdelphi.blogspot.com (great delphi) — Fri, 20 Aug 2010 02:02:00 PDT

You must have the component TNMSMTP from FastNet tools. This component is included in Delphi 4-5 Professional and Enterprise procedure TForm1.Button1Click(Sender:Object); Begin ...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

How to get list of font available from system, and it's info / properties ?

greatdelphi.blogspot.com (great delphi) — Wed, 18 Aug 2010 02:00:00 PDT

To get a list of fonts available we have to use EnumFontFamilies or EnumFonts Win32 API functions. For a description of the differences between those two functions please refer to Win32 SDK...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

How do I accept files that are dropped on my application?

greatdelphi.blogspot.com (great delphi) — Mon, 16 Aug 2010 01:59:00 PDT

You must interface with the Windows Shell API module to let Windows know that your application accepts dropped files (this can be done in your main form's create event), and then you must...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Logout, or restart NT

greatdelphi.blogspot.com (great delphi) — Sat, 14 Aug 2010 01:57:00 PDT

function SetPrivilege(aPrivilegeName : string; aEnabled : boolean ): boolean; var TPPrev, TP : TTokenPrivileges; Token : THandle; dwRetLen : DWord; begin Result := False;...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

How to change windows start button bitmap

greatdelphi.blogspot.com (great delphi) — Thu, 12 Aug 2010 01:55:00 PDT

{ define Global vars } var Form1: TForm1; StartButton: hWnd; OldBitmap: THandle; NewImage: TPicture; { put the Code in the OnCreate event of your form } procedure...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Windows Registry

greatdelphi.blogspot.com (great delphi) — Tue, 10 Aug 2010 01:52:00 PDT

This code demonstrates use of windows registery and function overloading to read from registery: if key doesnt exist it's created and Default passed to key value ReadReg(KeyToRead,DefaultValue)...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

DragDrop with the windows explorer

greatdelphi.blogspot.com (great delphi) — Sun, 08 Aug 2010 01:50:00 PDT

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; procedure...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Get the current Domain and Username

greatdelphi.blogspot.com (great delphi) — Fri, 06 Aug 2010 01:47:00 PDT

Found in the Win32.hlp type PTokenUser = ^TTokenUser; _TOKEN_USER = record User: TSIDAndAttributes; end; TTokenUser = _TOKEN_USER; procedure getCurrentUserAndDomain(var User,...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Get the username and computer name from a Win95

greatdelphi.blogspot.com (great delphi) — Wed, 04 Aug 2010 01:45:00 PDT

computer For Win95, you can find it in the registry - but this is not portable to NT. A safer way (and one which is portable to NT) would be to use the Win32 calls GetComputerName and GetUserName,...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Set the Wallpaper on Windows98/2000 when ActiveDesktop is turned on

greatdelphi.blogspot.com (great delphi) — Mon, 02 Aug 2010 01:43:00 PDT

You may have noticed that using SystemParametersInfo to change the wallpaper when ActiveDesktop is turned on doesn't work. The reason is because you need to use the IActiveDesktop COM interface....

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Shutdown windows

greatdelphi.blogspot.com (great delphi) — Sat, 31 Jul 2010 01:41:00 PDT

Parameters: EWX_SHUTDOWN : shut down windows(Power off) EWX_REBOOT : reboot windows EWX_POWEROFF : Standby mode EWX_LOGOFF : Log Off procedure TForm1.Button1Click(Sender: TObject);...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Get windows and system directory

greatdelphi.blogspot.com (great delphi) — Thu, 29 Jul 2010 01:38:00 PDT

function GetWinDir: String; var dir : array [0..max_path] of char; begin GetWindowsDirectory(dir, max_path); result:=StrPas(dir); end; function GetSysDir: String; var dir : array...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Tile an image

greatdelphi.blogspot.com (great delphi) — Tue, 27 Jul 2010 01:32:00 PDT

procedure TForm1.Button1Click(Sender:TObject); var x,y : Integer; Bmp : TBitmap; begin bmp:=TBitmap.Create; bmp.LoadFromFile('c:\windows\streifen.bmp'); for x:=0 to (image1.width div...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Convert BMP to JPG

greatdelphi.blogspot.com (great delphi) — Sun, 25 Jul 2010 01:30:00 PDT

uses jpeg; procedure TForm1.Button1Click(Sender: TObject); var bmp : TImage; jpg : TJpegImage; begin bmp := TImage.Create(nil); jpg := TJpegImage.Create; ...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

change the graphic mode

greatdelphi.blogspot.com (great delphi) — Fri, 23 Jul 2010 01:29:00 PDT

procedure TForm1.FormCreate(Sender: TObject); var devmode : TDEVMODE; d : INTEGER; litem : TListItem; p : ^TDevmode; begin devmode.dmSize := SizeOf(TDEVMODE); devmode.dmDriverExtra :=...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Detect Disk Free

greatdelphi.blogspot.com (great delphi) — Wed, 21 Jul 2010 01:27:00 PDT

DiskFree(n) //where n = number. 0 = the current drive you are working in. 1 = A, 2 = B, 3 = C, 4 = D etc. DiskFree(3);// C drive. DiskFree returns the number of free bytes on the specified...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Open and close CD

greatdelphi.blogspot.com (great delphi) — Mon, 19 Jul 2010 01:26:00 PDT

Procedure Opendoor; Begin mciSendString('Set cdaudio door open', nil, 0, 0); End; Procedure CloseDoor; Begin mciSendString('Set cdaudio door closed', nil, 0, 0); End; note : Remember to...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Detect SoundCard

greatdelphi.blogspot.com (great delphi) — Sat, 17 Jul 2010 01:24:00 PDT

Uses MMSystem; Function IsSoundCardInstalled:Boolean; Begin Result:=(waveOutGetNumDevs>0); End;Get more information at http://greatdelphi.blogspot.com

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Hide the application from tasklist (Ctrl+Alt+Del)

greatdelphi.blogspot.com (great delphi) — Thu, 15 Jul 2010 01:23:00 PDT

implementation function RegisterServiceProcess(dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL'; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Make the whole form behave like the title bar

greatdelphi.blogspot.com (great delphi) — Tue, 13 Jul 2010 01:21:00 PDT

Uses Messages; ... public procedure WMNCHitTest(var Message: TWMNCHitTest); message; WM_NCHITTEST; end; ... procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest); var P :...

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Make a form always on top

greatdelphi.blogspot.com (great delphi) — Sun, 11 Jul 2010 01:20:00 PDT

with Form1 do SetWindowPos(Handle, HWND_TOPMOST, Left, Top,Width, Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);Get more information at http://greatdelphi.blogspot.com

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Hide the main form

greatdelphi.blogspot.com (great delphi) — Fri, 09 Jul 2010 01:19:00 PDT

Application.ShowMainForm := false;Get more information at http://greatdelphi.blogspot.com

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Send files to the recycle bin

greatdelphi.blogspot.com (great delphi) — Wed, 07 Jul 2010 01:17:00 PDT

procedure RecycleFile(s : string); var SHFileOpStruct : TSHFileOpStruct; begin with SHFileOpStruct do begin Wnd := Handle; wFunc := FO_DELETE; // we want to delete a file......

http://greatdelphi.blogspot.com is Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component

Links for 2009-09-19 [Digg]

Sun, 20 Sep 2009 00:00:00 PDT

Delphi
Borland, Delphi, Pascal, Programming, Free Codes, Free Examples, Free Downloads, Source Codes, Free Component