Delphi PHP Print Display ShellExecute SMTP GetDriveType SendMail SW_HIDE Random SW_SHOW Random Number ShowWindow mail GetVolumeInformation Print Dialog TPrintDialog Removable Disk Detection TOSVERSIONINFO HDD Volume Name GetVersionEx bcadd GetWinDir GetWindowsDir Animated Application Icon GetWindowsVersion Gradient Filled Form Hard Disk Volume Lable Hard Disk Volume Name HDD Volume Lable GetSystemDirectory Hide Caption Bar Hide Taskbar JSP Email available memory size Mass Storage Device MimeBodyPart Number Format Open URL aliases 켜져있는시간 Desktop Wallpaper Decimal Separator DISP_CHANGE_NOTUPDATED DISP_CHANGE_SUCCESSFUL DateTimeToSystemTime Drive Type encryption EnumDisplaySettings External Hard Disk File Association available memory Comma Focus ChangeDisplaySettings CD ROM Drive Detection Cardinal Endings bcsub GetSysDir GetSystemDefaultLangID

SENDMAIL.ZIP

How to send email in PHP ?   (created at Oct 16, 2007)   30  

Send an email from PHP - one line example. 

Send An Email Using A Bean   (created at Aug 30, 2007)   29  

This JSP snippets shows how to send an email using a reuasable javabean    JSP Sample - Send Email     
 
 ...

How To Send An E-mail By Code   (created at Aug 25, 2007)   29  

Use this function to send an e-mail through your program. You must have the component TNMSMTP from FastNet tools. This component is included in Delphi 4-5 Professional and Enterpriseprocedure TForm1.Button1Click(Sender: TObject); begin   NMSMTP1.Host ...

Number Format   (created at Aug 25, 2007)   51  

In this article we'll make number format like 0001, 0002, 0003 in stead of 1, 2 ,3. It's very easy to do this for your counter, category or product ID. etc. A Function Returns Large Random Numbers   (created at Aug 25, 2007)   51   This basically randomly pick a number between the min and max values. This is made because the rand() and mt_rand() function can not accept numbers larger than 2^31 or 2^63,depend on your processor and complier.

Function AccountCryptPassword($password,$salt)   (created at Aug 25, 2007)   58  

Encryption and password account accessFunction AccountCryptPassword($password,$salt) {  if($salt=="")  {   srand(time());   $random=rand();   $itoa64="./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"; &n...

Cardinal Endings   (created at Aug 25, 2007)   43  

This php based script will find numbers and give them a cardinal ending. This can be useful for displaying rankings or results of a competition. The script is easy to install and use

URL Rewriter PHP   (created at Aug 25, 2007)   71  

URL Rewriter PHP is a short code that can be used to rewrite dynamic PHP urls as URL's that link to static html pages. Increases search engine ranksings by creating a static system of page linking as well as making all content available

How Do I Remove The Application Icon From The Taskbar?   (created at Aug 25, 2007)   32  

To remove the icon from the taskbar, you need to call a Windows API call:BOOL ShowWindow(HWND hwnd,int nCmdShow);Delphi makes it very easy to use this command. All you need to do is supply the Application.handle and SW_HIDE to remove the icon from the task...

How To Show The Print Dialog And Print Text Files   (created at Aug 25, 2007)   50  

This code show an example of how to print a text of a RichEdit component.unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, ComCtrls; type   TForm1 = class(TForm)     ...

How To Make An Animated Application Icon   (created at Aug 25, 2007)   52  

Show how to create an animated icon in your programvar  icon1:Boolean; ... procedure TForm1.Timer1Timer(Sender: TObject); begin   if icon1=false then   begin     Application.icon:=Image1.Picture.Icon;      icon1:=tru...

How To Pass The Focus To The Next/prior Control   (created at Aug 25, 2007)   54  

Shows how to activate the next or prior control in a formnext control: SendMessage(Form1.Handle, WM_NEXTDLGCTL, 0, 0); prior control: SendMessage(Handle, WM_NEXTDLGCTL, 1, 0);

How To Make Rounded Windows   (created at Aug 25, 2007)   34  

Create a different form in your application...procedure TForm1.FormCreate(Sender:TObject);  var    region: HRgn;  begin    region:=CreateEllipticRgn(1,1,200,200);    SetWindowRgn(handle, region, true);  end;

How To Get Windows Uptime   (created at Aug 25, 2007)   36  

Find how long Windows has been working...function UpTime: string; const ticksperday : integer = 1000 * 60 * 60 * 24; ticksperhour : integer = 1000 * 60 * 60; ticksperminute : integer = 1000 * 60; tickspersecond : integer = 1000; var  t : longword; &nb...

How To Find Out Total And Available Memory   (created at Aug 25, 2007)   33  

Get the total and available memory in your system. (Total free memory space in your system)procedure TForm1.Button1Click(Sender: TObject); var   memory:TMemoryStatus; begin   memory.dwLength:=sizeof(memory);   GlobalMemoryStatus(memory); &nb...

How To Change The System Time   (created at Aug 25, 2007)   33  

This code shows how to set the system time to another value.procedure TForm1.Button1Click(Sender: TObject); var    systemtime : TSystemTime;    NewTime:string; begin    NewTime:='13:58:00';    DateTimeToSystemTime( D...

How To Get The Windows OS Version   (created at Aug 25, 2007)   47  

 Identify the Windows version of your systemfunction GetWindowsVersion : string;  var    OsVinfo   : TOSVERSIONINFO;    HelpStr   : array[0..50] of char;  begin    ZeroMemory(@OsVinfo,sizeOf(OsVinfo));...

How To Change The Desktop Wallpaper   (created at Aug 25, 2007)   35  

Change the wallpaper of your system by codeuses    Registry, WinProcs;  procedure SetWallpaper(               sWallpaperBMPPath : String;               bTile : boolean );&...

How To Get The Windows Language   (created at Aug 25, 2007)   32  

Obtains the language that Windows is using.function Language:string;  var    sLangID:LangID;    sLanguage: array [0..100] of char;  begin    sLangID:=GetSystemDefaultLangID;    VerLanguageName(sLangID,sLang...

How To Make A Gradient Filled Form   (created at Aug 25, 2007)   29  

Show how to paint a form in a different way...procedure TForm1.FormPaint(Sender: TObject); var   Row, Ht: Word;   IX: Integer; begin   iX :=200 ;   Ht:=(ClientHeight + 512) div 256;   for Row := 0 to 512 do   begin   &nbs...

How can I hide the caption bar on a form?   (created at Aug 25, 2007)   31  

To hide the caption bar you need to override on of the default form methods CreateParams (this also exists for other objects).The CreateParams method initializes a window-creation parameter record passed in the Params parameter (ref:Delphi Help).Go to the ...

How To Open Url In Default Webbrowser   (created at Aug 25, 2007)   32  

Use this function to open your browser with a given URL.uses    shellapi;  ....  procedure TForm1.Label1Click(Sender:TObject);  begin    shellexecute(handle,'open','http://www.swissdelphicenter.ch', nil,nil,sw_show); ...

How To Check If A Soundcard Is Installed   (created at Aug 25, 2007)   42  

Use this code to verify if a soundcard is installed in your systemuses mmsystem;  ...  function Soundkarte:Boolean;  begin    Result := WaveOutGetNumDevs >0;  end;

How To Change Screen Resolution   (created at Aug 25, 2007)   57  

Change the resolution of your screen.Actually I've ever used this function for TV-based software development, because of TV-resolution.{ The function NewRes can have the following result: DISP_CHANGE_SUCCESSFUL The settings change was successful. DISP_CHAN...

How To Force The Correct Decimal Separator   (created at Aug 25, 2007)   30  

Some English speaking countries use the "point" as decimal separator, while the rest of the world is using the "comma". How can you make sure that the user will press the correct key when entering a number with a decimal fraction? With the code in this exa...

How To Register Own File Types   (created at Aug 25, 2007)   56  

Use the registry to register your own filetypeuses registry; procedure TForm1.RegisterFileType(prefix:String; exepfad:String); var   reg:TRegistry; begin   reg:=TRegistry.Create;   reg.RootKey:=HKEY_CLASSES_ROOT;  

How To Get Volume Name   (created at Aug 25, 2007)   33  

Obtains the volume name of a indicated drivefunction VolumeName(Laufwerk: Char): string; var max, Flags: DWORD;     Buf: array [0..MAX_PATH] of Char; begin  try   GetVolumeInformation(PChar(Laufwerk + ':'), Buf, sizeof(Buf), nil, max, F...

How To Get Windows And System Directory   (created at Aug 25, 2007)   40  

Get the name of the Windows and System directory used in your systemfunction GetWinDir: String; var   dir: array [0..max_path] of char; begin  GetWindowsDirectory(dir, max_path);  result:=StrPas(dir); end; function GetSysDir: String; var &nb...

Get The Drive Type   (created at Aug 25, 2007)   42  

Shows how to identify the type of the drive you are acessing.procedure TForm1.Button1Click(Sender: TObject); var   typ:Integer;   s: string; begin   s:='C:';   typ:=GetDriveType(PChar(s));   if Typ <> 0 then case typ of   &nbs...

How can I modify aliases programmatically ?   (created at Aug 25, 2007)   48  

Take a look at TDatabase. You can set the Alias property to the physical path at runtime. InstallShield Express, which ships with D2 and D3 (and greater)lets you define new aliases with paths relative to the directory where the user installs the program.Th...


Page: 1  2