• Total Source Code 11
  • Total Page : 1
  • You currently on page number : 1

Diagram Studio

  • 00 0000
  • 333

Add flexible diagramming, graphing or flowcharting capabilities to your applications. Diagram editing behavior similar to standard diagramming applicationsSupport clipboard operationsBlock gradient, shadow and bitmapFull block customization: pen, brush, color, selection color, minimum width and heightBlock text customization: horizontal and vertical alignment, font, word wrap, Read more

Disable/enable taskbar

  • 14 December 2013
  • 212
  • taskbar,windows

Taskbar window name is "Shell_TrayWnd". Use FindWindow function to find Taskbar handle, and EnableWindow function to disable/enable taskbar. For example:   var TaskbarHandle: THandle; ... procedure TForm1.FormCreate(Sender: TObject); begin TaskbarHandle:=FindWindow("Shell_TrayWnd", nil); end; procedure TForm1.Button1Click(Sender: TObject); begin EnableWindow(TaskbarHandle, Read more

Check or Validate e-mail address

  • 14 December 2013
  • 289
  • validate,email,windows

Use function IsValidEmail, if you want to check any e-mail address. This function checks syntax of each part of e-mail address. function IsValidEmail(const Value: string): Boolean; function CheckAllowed(const s: string): Boolean; var i: Integer; begin Result:= false; for i:= 1 to Length(s) do if not (s[i] in ["a".."z", "A".."Z", Read more

Top PHP Framework Collections

  • 00 0000
  • 290
  • php,windows,

Introduction PHP Framework helps developers to create applications with speed and ease. Choosing best framework is very important for the successful development of the projects. A good PHP Framework must have following features Must be compatible with latest PHP Version.Must support MVC Structure.Must support Multiple Databases.Must has inbuilt template engine.Must support caching and Read more

Retrive Windows Product Key

  • 24 December 2013
  • 396
  • windows,product key

interface uses Registry, Windows, SysUtils, Classes; function IS_WinVerMin2K: Boolean; // Check OS for Win 2000 or higher function View_Win_Key: string; // View the Windows Product Key function IS_OXP_Installed: Boolean; // Check if Office XP is installed function View_OXP_Key: string; // View the Office XP Product Key function IS_O2K3_Installed: Boolean; // Check if Office 2003 is Read more

Detect Aero Glass using Delphi

  • 28 December 2013
  • 269
  • auro glass,windows

program DetectAeroDelphi; {$APPTYPE CONSOLE} //Author Rodrigo Ruz 2009-10-26 uses Windows, SysUtils; function ISAeroEnabled: Boolean; type _DwmIsCompositionEnabledFunc = function(IsEnabled: PBoolean): HRESULT; stdcall; var Flag : Boolean; DllHandle : THandle; OsVersion : TOSVersionInfo; Read more

Windows Ballon

  • 10 January 2014
  • 198
  • balloon,windows

How to make the windows ballon   unit NotifyBalloon; interface uses SysUtils,Windows, Classes, ShellApi,Forms,Dialogs; const NIF_INFO = $10; type TNotifyIcons = (NIIF_NONE , NIIF_INFO ,NIIF_WARNING ,NIIF_ERROR ,NIIF_USER ); TNOTIFYICONDATA = record cbSize: DWORD; Wnd: HWND; uID: UINT; uFlags: UINT; uCallbackMessage: UINT; Read more

Change Desktop Wallpaper Windows

  • 16 January 2014
  • 202
  • wallpaper,desktop,windows

  unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry, Buttons, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; Edit1: TEdit; SpeedButton1: TSpeedButton; Image1: TImage; procedure Button1Click(Sender: TObject); procedure Read more

Find Temp Path of Windows

  • 16 January 2014
  • 157
  • temporary,windows

  this source to find path of temporary folder windows   unit main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; Label1: TLabel; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } Read more

Toggle Title Bar

  • 16 January 2014
  • 215
  • toggle,title,windows

  unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; Button1: TButton; procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseMove(Sender: TObject; Read more

Open a folder with Explorer

  • 16 January 2014
  • 141
  • windows,explorer,folder

uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(handle, 'Explore', 'C:\Pasarkode', nil, nil, Read more