Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Delphi×Ö·û´®º¯Êý´óÈ«

Delphi×Ö·û´®º¯Êý´óÈ«
uses StrUtils;
¡¾×Ö·û´®º¯Êý´óÈ«¡¿
      Êײ¿ function AnsiResemblesText(const AText, AOther: string): Boolean;
      $[StrUtils.pas
      ¹¦ÄÜ ·µ»ØÁ½¸ö×Ö·û´®ÊÇ·ñÏàËÆ
      ˵Ã÷ ANSI(American National Standards Institute)ÃÀ¹ú¹ú¼Ò±ê׼Э»á;²»Çø·Ö´óСд
      ²Î¿¼ function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc
      Àý×Ó CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);
      ©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥
      Êײ¿ function AnsiContainsText(const AText, ASubText: string): Boolean;
      $[StrUtils.pas
      ¹¦ÄÜ ·µ»Ø×Ö·û´®ATextÊÇ·ñ°üº¬×Ó´®ASubText
      ˵Ã÷ ²»Çø·Ö´óСд
      ²Î¿¼ function StrUtils.AnsiUppercase; function StrUtils.AnsiPos
      Àý×Ó CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);
      ©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥
      Êײ¿ function AnsiStartsText(const ASubText, AText: string): Boolean;
      $[StrUtils.pas
      ¹¦ÄÜ ·µ»Ø×Ö·û´®ATextÊÇ·ñÒÔ×Ó´®ASubText¿ªÍ·
      ˵Ã÷ ²»Çø·Ö´óСд
      ²Î¿¼ function Windows.CompareString
      Àý×Ó CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text);
      ©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥
      Êײ¿ function AnsiEndsText(const ASubText, AText: string): Boolean;
      $[StrUtils.pas
      ¹¦ÄÜ ·µ»Ø×Ö·û´®ATextÊÇ·ñÒÔ×Ó´®ASubText½áβ
      ˵Ã÷ ²»Çø·Ö´óСд
 &


Ïà¹ØÎĵµ£º

Delphi½áÊø½ø³ÌÄ£¿é

uses Tlhelp32;
function KillTask(ExeFileName: string): integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOLean;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(T ......

DelphiµÚÈý·½¿Ø¼þ°²×°Ð¶ÔØÖ¸ÄÏ


DelphiµÚÈý·½¿Ø¼þ°²×°Ð¶ÔØÖ¸ÄÏ
 
»ù±¾°²×°
1¡¢¶ÔÓÚµ¥¸ö¿Ø¼þ£¬Componet-->install component..-->PAS»òDCUÎļþ-->install;
2¡¢¶ÔÓÚ´ø*.dpkÎļþµÄ¿Ø¼þ°ü£¬File-->Open(ÏÂÀ­Áбí¿òÖÐÑ¡*.dpk)-->install¼´¿É£»
3¡¢¶ÔÓÚ´ø*.bplÎļþµÄ¿Ø¼þ°ü£¬Install Packages-->Add-->bplÎļþÃû¼´¿É£»
4¡¢Èç¹ ......

¡¶Delphi Ëã·¨ÓëÊý¾Ý½á¹¹¡·: ¹ØÓÚ const

Èç¹û²ÎÊýÔÚº¯ÊýÖв»¿ÉÄÜÐÞ¸Ä, Ò»¶¨ÒªÊ¹Óà const;
²»È», ±àÒëÆ÷¾Í»á:
¼Ù¶¨ÏÈÐÞ¸Ä, ÏÈÒª±¸·Ý; ʹÓÃǰºóÒªÔö¼õÒýÓüÆÊý; »¹ÒªÌ×ÉÏ try finally.
Ö¸¶¨ÁË const ¾Í¿ÉÒÔ±ÜÃâÒÔÉϹý³Ì´Ó¶øÌá¸ßЧÂÊ.
unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs ......

delphi code

http://hi.baidu.com/rainbow_chaser/blog/item/7eb5f001c0d864e508fa93ac.html
1.·ÀֹˢÐÂʱÉÁ˸µÄÖÕ¼«½â¾ö°ì·¨
{ ·ÀֹˢÐÂʱÉÁ˸µÄÖÕ¼«½â¾ö°ì·¨(¶Ô¸¶Ë«»º³åÎÞЧʱ) }
Perform($000B, 0, 0); //ËøÆÁÄ» ·ÀÖ¹ÉÁ˸
// ×öһЩ»á·¢ÉúÑÏÖØÉÁ˸µÄÊÂÇé..
//½âËøÆÁÄ»²¢ÖØ»­
Perform($000B, 1, 0);
RedrawWindow(Handle, nil, ......

DelphiÖС°Á÷¡±µÄÀûÓà EXE¼ÓÃÜ|µç×Ӻؿ¨


Ò»¡¢DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷   
ÔÚDelphiÖУ¬ËùÓÐÁ÷¶ÔÏóµÄ»ùÀàΪTStreamÀ࣬ÆäÖж¨ÒåÁËËùÓÐÁ÷µÄ¹²Í¬ÊôÐԺͷ½·¨¡£   
TStreamÀàÖж¨ÒåµÄÊôÐÔ½éÉÜÈçÏ£º   
1¡¢Size:´ËÊôÐÔÒÔ×Ö½Ú·µ»ØÁ÷ÖÐÊý¾Ý´óС¡£   
2¡¢Position:´ËÊôÐÔ¿ØÖÆÁ÷ÖдæÈ¡Ö¸ÕëµÄλÖà ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ