今天晚上在步行街上拍的，舔糖的番茄真可爱～～

由于最近在做一个手机版的卡片查询器，需要加载图片，对此稍做研究。

.NET里的PictureBox和Delphi中的TImage有很大的不同，它并不具有LoadFromFile或是任何类似的方法。
先前在网上查了，很多人说可以用FromFile()，但是我看了一下，FromFile()只是在.NET2.0中有，在.NET3.5反而没有了。更何况我使用的还是.NET Compact 3.5。

经过一番研究，最终还是让我找到了解决的方案，如下：

string picPath = Path.GetDirectoryName(Assembly.GetExecutingAssembly().GetName().CodeBase) + "\\Images\\

本文讲述了使用KOLCE如何开发Windows Mobile下的程序。

一、安装，配置环境
由于要开发Windows Mobile的程序，因此必须安装lazarus下的WinCE编译器。如果想要编译出来的程序体积小，需要安装KolCE。下面讲一下KolCE的安装方法。
首先打开MirrorKOLPackage.lpk，然后点击Compile，使控件编译并生成.o和.ppu文件，编译通过后，点击Install，此时会重新编译lazarus，编译以后，用strip lazarus.exe 使exe体积变小。

DTS是SQL Server中用于完成一系列数据调度的工具，由于它的特殊性，在程序中操作DTS包是件麻烦的事情。
但是微软还算很厚道，留了一个接口，让用户在自己开发的程序中，可以无障碍的使用DTS包。本文讲述的就是如何在Delphi中操作DTS包。

一、导入相关的DLL
首先，新建一个Package，并保存
在Component->Import Component菜单中，选择Import Type Library
找到SQL Server安装目录下的DTSPkg.dll文件，并加载到Delphi中
将Dll生成的TLB文件导入到Package中
保存Package，编

Lazarus是一个基于Free Pascal的，类似于Delphi的可视化开发环境，它可以工作在linux下，并完成linux下的软件开发。
由于需要的包比较多，安装时也很容易出现问题，因此在这里特此做一个整理，以便日后参考

首先，下载并按顺序安装以下deb包。

fp-units-rtl_2.2.0-1_i386.deb
fp-compiler_2.2.0-1_i386.deb
fpc-src_2.2.0-071107_i386.deb
fp-ide_2.2.0-1_i386.deb
fp-units-base_2.2.0-1_i386.deb
fp-units-db_2.2.0-1_i386.deb
fp-unit

function IsFileInUse(AName: string): boolean;
var
hFileRes: HFILE;
begin
Result := False;
if not FileExists(AName) then exit;
hFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0,
    nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Result   := hFileRes = INVALID_HANDLE_VALUE;
if not Result then
    CloseHandle(hFileRes);
end;

这是一个代码模板，以前集成在RarnuWizard中，由于Delphi版本更新而无法再使用
现提取其中的DLL入口修复模板给大家共享。

library { library name };

uses
SysUtils,Forms, Classes;

{$R *.res}

var
DllApp: TApplication;
DllScr: TScreen;

procedure DLLUnloadProc(Reason: Integer); register;
begin
if (Reason = DLL_PROCESS_DETACH) or (Reason = DLL_THREAD_DETACH) then
begin
    Application := DllApp;

虽说MSBuild是个好东西，能定制构建流程，但是它会导致构建程序时占用系统资源过大，并且使得编译器的错误提示变得非常慢，在使用Delphi2007时，必须关掉MSBuild。

以下是关闭MSBuild的流程：
with TRegistry.Create do
begin
RootKey := HKEY_CURRENT_USER;
OpenKey('Software\Borland\BDS\5.0\Globals', True);
WriteString('MSBuildDelphi', '0');
CloseKey;
Free;
end;

这段代码即可以关闭MSBuild，然后把你项目里的dproj文件全部删除
再启动Delphi2007，打开DPR文件，使它

function AdjustProcessPrivilege(ProcessHandle: THandle; Token_Name: PChar): boolean;
var
Token:       cardinal;
TokenPri:    _TOKEN_PRIVILEGES;
ProcessDest: int64;
l:           DWORD;
begin
Result := False;
if OpenProcessToken(ProcessHandle, TOKEN_Adjust_Privileges, Token) then
begin
    if LookupPrivilegeValue(nil, Token_Name,

两个住一起，等它们以后生小仓鼠了，嘿嘿～～貌似它们很能通人性