Delphi version: Delphi2010 1. SysUtils //检查当前系统版本，如果当前系统版本大于等于AMajor.AMinor则返回true function CheckWin32Version(AMajor: Integer; AMinor: Integer = 0): Boolean; //获取文件版本 function GetFileVersion(const AFileName: string): Cardinal; //将字符串转换为大写 function UpperCase(const S: string): string; overload; functi
阅读全文当我们在卸载程序或者更新安装程序时，我们需要先将运行的进程杀掉再进行安装或者卸载程序。NSIS本身并没有提供杀掉进程的脚本，但是有一个插件可以实现此功能，插件的名字叫KillProcDLL，插件下载地址为http://nsis.sourceforge.net/KillProcDLL_plug-in。插件的用法请参考插件页面所提供的内容。下面给出在安装包中的代码：
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
;This callback will be called when the installer is nearly finished initializing. If the '.onInit' function calls Abort, the installer will quit instantly Function .onInit KillProcDLL::KillProc "myprogram.exe" FunctionEnd ;This callback is called when the user hits the 'cancel' button after the install has failed (if it could not extract a file, or the install script used the Abort command). Function .onInstFailed ExecShell "open" "$INSTDIRmyprogram.exe" FunctionEnd ;This callback will be called when the uninstaller is nearly finished initializing. If the 'un.onInit' function calls Abort, the uninstaller will quit instantly. Note that this function can verify and/or modify $INSTDIR if necessary. Function un.onInit MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "Are you sure you want to uninstall $(^Name) and its componments?" IDYES NoAbort IDYES +2 Abort NoAbort: KillProcDLL::KillProc "myprogram.exe" FunctionEnd |
.onInit为安装程序启动时触发的事件，此处杀掉进程是防止更新安装时不能更新主程序的问题 .onInstFailed为安装失败时触发的事件，此处启动程序文件是为防
阅读全文刚才在开发的时候，突然不能改变工程的图标和版本等信息了，把dof文件删除掉也不起作用。后来想起来，原来在前几天把工程默认的引用的资源文件的代码去掉了{$R *.res}，打开Project->View Source后，将{$R *.res}加到里面就可以了。如下所示：
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. |
Delphi版本：Delphi7
阅读全文Delphi中读取Outlook的数据，代码如下：
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 |
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, activex, ComObj, ComCtrls; type TForm1 = class(TForm) btnGetData: TButton; lvCalendar: TListView; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; lvContact: TListView; procedure btnGetDataClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btnGetDataClick(Sender: TObject); var i, J: Integer; Outlook, Namespace, Appointment, Calendar: variant; Created: Boolean; Accept: Boolean; MyItems: Variant; apptItem, Contacts, cItem: Variant; const olAppointmentItem = 1; olFolderCalendar = 9;// The Calendar folder. olFolderConflicts =19;// The Conflicts folder (subfolder of Sync Issues folder). Only available for an Exchange account. olFolderContacts =10;// The Contacts folder. olFolderDeletedItems = 3;// The Deleted Items folder. olFolderDrafts = 16;// The Drafts folder. olFolderInbox =6;// The Inbox folder. olFolderJournal= 11;// The Journal folder. olFolderJunk = 23;// The Junk E-Mail folder. olFolderLocalFailures =21;// The Local Failures folder (subfolder of Sync Issues folder). Only available for an Exchange account. olFolderManagedEmail = 29;// The top-level folder in the Managed Folders group. For more information on Managed Folders, see Help in Microsoft Outlook. Only available for an Exchange account. olFolderNotes= 12 ;// The Notes folder. olFolderOutbox = 4;// The Outbox folder. olFolderSentMail = 5;// The Sent Mail folder. olFolderServerFailures = 22;// The Server Failures folder (subfolder of Sync Issues folder). Only available for an Exchange account. olFolderSyncIssues = 20;// The Sync Issues folder. Only available for an Exchange account. olFolderTasks= 13;// The Tasks folder. olFolderToDo =28;// The To Do folder. olPublicFoldersAllPublicFolders= 18;// The All Public Folders folder in the Exchange Public Folders store. Only available for an Exchange account. olFolderRssFeeds = 25;// The RSS Feeds folder. begin lvCalendar.Clear ; Created := False; try Outlook := CreateOleObject('Outlook.Application'); except Created := True; end; Namespace := Outlook.GetNamespace('MAPI'); Calendar := Namespace.GetDefaultFolder(olFolderCalendar); for I := 1 to Calendar.Items.count do begin Appointment := Calendar.Items[i]; try With lvCalendar.Items.Add do begin Caption := Appointment.Subject; SubItems.Add(Appointment.Start); SubItems.Add(Appointment.End); SubItems.Add(Appointment.Duration); SubItems.Add(Appointment.Location); SubItems.Add(Appointment.Body); end; except end; end; Contacts := Namespace.GetDefaultFolder(olFolderContacts); for I := 1 to Contacts.Items.Count do begin Citem := Contacts.Items[I]; try With lvContact.Items.Add do begin Caption := cItem.FirstName; SubItems.Add(cItem.LastName); SubItems.Add(cItem.MiddleName); SubItems.Add(cItem.Gender); SubItems.Add(cItem.Birthday); SubItems.Add(cItem.Email1Address); SubItems.Add(cItem.Email1AddressType); SubItems.Add(cItem.HomeTelephoneNumber); end; except end; end; if Created then Outlook := unassigned; end; procedure TForm1.FormCreate(Sender: TObject); begin PageControl1.ActivePageIndex := 0; end; end. |
Form代码：
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 |
object Form1: TForm1 Left = 450 Top = 238 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Outlook reader test' ClientHeight = 604 ClientWidth = 985 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object btnGetData: TButton Left = 16 Top = 568 Width = 161 Height = 25 Caption = 'Get Data From Outlook' TabOrder = 0 OnClick = btnGetDataClick end object PageControl1: TPageControl Left = 8 Top = 8 Width = 961 Height = 545 ActivePage = TabSheet2 TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Appointment' object lvCalendar: TListView Left = 0 Top = 0 Width = 953 Height = 517 Align = alClient Columns = < item Caption = 'Subject' Width = 80 end item Caption = 'Start' Width = 80 end item Caption = 'End' Width = 80 end item Caption = 'Duration' Width = 80 end item Caption = 'Location' Width = 80 end item Caption = 'Body' Width = 80 end> GridLines = True TabOrder = 0 ViewStyle = vsReport end end object TabSheet2: TTabSheet Caption = 'Contact' ImageIndex = 1 object lvContact: TListView Left = 0 Top = 0 Width = 953 Height = 517 Align = alClient Columns = < item Caption = 'First Name' Width = 90 end item Caption = 'Last Name' Width = 90 end item Caption = 'M Name' Width = 90 end item Caption = 'Gender' Width = 90 end item Caption = 'BirthDay' Width = 90 end item Caption = 'Email1 Addr' Width = 90 end item Caption = 'Email1 Type' Width = 90 end item Caption = 'HomeTelePhoneNumber' Width = 90 end> GridLines = True TabOrder = 0 ViewStyle = vsReport end end end end |
相关链接： Microsoft Outlook Constants AppointmentItem Object Members Items Members (Outlook) Folders Property Attachment Object Members Application Object Members ContactItem Object Members
阅读全文1. 在子函数中引用全局变量，错误描述：在一个公共文件中定义了一个$dblink对象用于访问数据库，在另外一个文件FileA中require了这个公共文件，同时在FileA中定义了一个子函数GetUserId()，在此函数中需要访问数据库读取数据，访问数据库的时候直接使用了$dblink对象，发现根本取不到相应的数据，访问数据库不成功。 后经gg搜索，明白了在子函数中是不能直接使用公共变量的，所以必须把$dblink对象传入这个函数中才可以使用，因此解决办法是把GetUserId()改为GetUserId($tmpdblink)，再使用时把$dblink对象传入此函数。 2. PH
阅读全文1. 写子风格的时候，子风格和父风格之间无空格，如：#contactonline.co_row_comments{height: 120px;}这样是错误的，应该在#contactonline后加一空格
阅读全文AlertDialog直接继承自Dialog类，可以用于显示确认提示框或者列表选择框，还可以用于显示有自定义布局的提示框，Android中内置的ProgressDialog、DatePickerDialog和TimePickerDialog都是继承自于该对象。 AlertDialog的创建 AlertDialog的实例化函数是声明的protected的，所以不能直接通过new AlertDialog(context)来创建，而是要通过它的一个子类Builder来创建，AlertDialog的很多属性也是通过这个builder对象来实现的。 [crayon-5b02355f7874976
阅读全文如何使用：在Eclipse中，打开项目下的res\values目录，在values上右键，新建->Other->Android XML File，Resource Type那选择Values，输入文件的名字，如:mycolors，点“确定”，把下面表格中的文字复制到新建的文件中。在设计界面静态调用时为@color/blue，在java代码中为getResources().getColor(R.color.hotpink) 因为页面复制过去的xml包含中文特殊字符，大家可以点击这里下载此xml文件 mycolors.xml <?xml version=”1.
阅读全文其他注意事项： 1、如何设置自己的Dialogfragment没有标题栏？ 可以通过两种方法来设置 ，一种是使用dialogfragment的setStyle函数，另外就是使用getDialog().getWindow().requestFeature方法，具体代码如下
|
1 2 3 4 5 6 |
@Override public Dialog onCreateDialog(Bundle savedInstanceState) { //如果要使用此方法，则必须将代码放到onCreateDialog中，因为一旦其中的dialog创建成功后，setStyle将不再起作用 setStyle(STYLE_NO_TITLE, 0); return super.onCreateDialog(savedInstanceState); } |
使用getDialog的方法
|
1 2 3 4 5 6 7 8 9 10 |
@Override public View onCreateView(LayoutInflater inflater, ViewGroup container, Bundle savedInstanceState) { dlgView = inflater.inflate(R.layout.add_customer_activiey, container); getDialog().getWindow().requestFeature(Window.FEATURE_NO_TITLE); return dlgView; } |
2. The method show(FragmentManager, String) in the type DialogFragment is no
阅读全文1. 今天check out项目的时候，svn突然报了一个如下错误：
|
1 2 3 4 |
Checkout from http://127.0.0.1/financing, revision HEAD, Fully recursive, Externals included Unable to connect to a repository at URL 'http://127.0.0.1/financing' The OPTIONS request returned invalid XML in the response: XML parse error at line 1: no element found (http://127.0.0.1/financing) |
在网上查了一上解决办法为： 在地址和项目名称之间加上svn，本例中为如下：http://127.0.0.1/svn/financing，再进行check out就没问题了 SVN客户端：TortoiseSVN 1.7.11, Build 23600 – 64 Bit, Subversion 1.7.8 SVN服务端：VisualSVN Server Manager Version: 2.5.9
阅读全文