摘要: 描述:显示一个目录的对话框(属于Delphi)function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean;参数一:存放返回值。可设置当前选择目录,不设置则为程序运行目录。 参数二:[]:目录不可编辑,只能手动选择 [sdAllowCreate]: 目录可编辑,目录不存在不负责创建。 [asAkkiwCreate, sdPerformCreate]:目录可编辑, 目录不存在直接创建。 [asAkkiwCreate, sdPerformCreate, sdP. 阅读全文
posted @ 2013-12-27 19:26 oszhouzhb 阅读(321) 评论(0) 推荐(0) 编辑
摘要: program Project1;{$APPTYPE CONSOLE}{$R *.res}uses System.SysUtils;type TVoice = function(): String;function WithAmericanDoll(): String;begin Result := 'Oh yes, Oh, F M.';end;function WithJapanDoll(): String;begin Result := 'ah, a~ah, eku..eku..';end;function MkLove(voice: TVoice): St 阅读全文
posted @ 2013-11-04 11:19 oszhouzhb 阅读(179) 评论(0) 推荐(0) 编辑
摘要: /* * Created by SharpDevelop. * User: Administrator * Date: 2013/10/23 * Time: 8:57 * author zibet */using System;using System.Net;using System.Windows.Forms;using System.Runtime.InteropServices;namespace SyncTime{ /// /// Description of MainForm. /// public partial class MainForm : Form { [Struc... 阅读全文
posted @ 2013-10-31 10:47 oszhouzhb 阅读(229) 评论(0) 推荐(0) 编辑
摘要: Class TBoundlabel not foundwhen you put a labeledit into a panel of CategoryPanel then you'll found..no need to worry,step1,put the labeledit into a panelstep2,put the panel into the panel of CategoryPanel.About Image ComponentImage1.Picture.LoadFromFile(OpenDialog1.FileName);// this can only lo 阅读全文
posted @ 2013-10-30 12:21 oszhouzhb 阅读(506) 评论(0) 推荐(0) 编辑