发光二极管 - L.E.D.

寻找生活的乐趣

有时候Painter IX.5安装完成后启动会出现如下错误，

英文版： This copy of painter has been damaged or illegally modified. Please reinstall from your original disks

中文版: 此Painter的拷贝已被损坏或非法地修改，请从您的原始磁盘重新安装。

Baidu上搜索，没有解决方法，只好Google。终于找到了解决方法，英文原文：

Out of the blue, Painter IX.5 stopped working with the error message: "This copy of painter has been damaged or illegally modified. Please reinstall from your original disks". This was surprising, and Corel provided the usual support - none. After the typical fixes like reinstalling the software and manually deleting all registry entries related to Corel Painter, the suggested solutions ran thin. The solution in this case was to search for and delete all registry entries called "Protexis". But careful when editing the Registry, the wrong move may wreak havoc on your computer.

其实就是打开注册表，搜索 Protexis，全部删除，如果遇到删除不了的，是权限问题，在要删除的项目上右键，点权限，选Everyone把下面完全控制的允许上打勾，就可以删除了。

然后Painter就可以正常运行激活了。

车展MM和车 - [摄影]

Tag：杭州车车展 MM

10月20日，和同学一起去了趟杭州国际车展。

嗯，第一次去车展...很多车，很多人，很多PLMM～

不过，这车展的位置还真是偏僻啊....贼远贼远的.....还好回来的时候坐老大的车～

最悲的是回来的时候发现很多PP的白平衡严重不对，要是车子就罢了，没见过那车的人也认不出来..不过车模的皮肤可就郁闷了，严重偏黄～只好花时间一张一张的调整颜色～

下次看到不认识的光源还是老老实实用自动白平衡算了～只是不知道相机的自动白平衡是怎么自动出来的，什么情况下会不准确。

呃，这次去也没带脚架，然后发现光线其实很不好....只好用200ISO，勉强还能手持拍摄，发现自己手持的稳定性比刚开始要好了许多了。

十一总结(2) - [心情日记]

Tag：风景

十月三日去爬了南高峰，路过了九溪十八涧，虎跑以及附近的许多山～

这是走的最远的一次，直线距离12公里左右，山上人很少，大概是喜欢爬山的人并不太多。而九溪十八涧那里就是人山人海了，想拍张没人的照片很难，所以基本没拍，就拍了几张蝴蝶，不过现在想想，拍人物也可以啊，看来是思路不够开阔。

十一总结 - [心情日记]

Tag：风景

十月一日去爬北高峰，结果找了半天没找到上山的路，在灵隐外面的路上来回跑了好几次，不过还好最后找到了上去的了，不过这时候已经走的挺累了....

0.啥啥啥花

1.月波亭，似乎平湖秋月那也有个月波亭？这个是北高峰下一个村子里的

3.北高峰顶的电视信号塔

北高峰一日游路线图（从灵隐出发）,总路程直线距离大概10公里

又过了一个中秋节 - [摄影]

Tag：月亮中秋

最近比较忙～

杭州最近的天气都不好的，没想到昨天下午开始转晴，使我有机会能够拍到中秋的满月。

拿着相机转了几个地方，很难找到没有光污染的地方了，只好随便找了个光线暗点的地方拍了一些，尝试了各种白平衡，看到了不同白平衡下的月亮的效果。

上周拍的两张照片（花） - [摄影]

Tag：

上周末和妹妹一起去了趟花圃，去的有点晚，出花圃的时候已经没时间去逛植物园了，只好在植物园外围转了一下，然后就回家了。

不知道这是什么花...

The Evolution of a Programmer(程序员的进化之路) - [视野]

Tag：

挺有意思的。

The Evolution of a Programmer

High School/Junior High 10 PRINT "HELLO WORLD" 20 END First year in College program Hello(input, output) begin writeln('Hello World') end. Senior year in College ...

彻底屏蔽Auto病毒的运行 - [心得]

Tag：autorun 病毒

通过注册表编辑器与权限控制结合的办法，可以彻底杜绝双击盘符情况下的autorun.inf调用，具体的办法如下：

1.开始——运行——regedit；

2.定位到HKEY_CURRENT_USER\Software\Microsoft\Windows\；

CurrentVersion\Explorer\MountPoints2；

3.在MountPoints2上右键——权限；

4.添加——输入everyone——检查名称——确定；

5.选择完全控制栏的拒绝，应用，对安全警告回答是；

应该算是比较完美的方案了：经过这样的权限设置，任何情况下的autorun.inf调用将被屏蔽，在默认状态下，带autorun的光盘和优盘被装载的时候，目录会被打开，双击盘符的结果是打开目录，而不是执行程序，同时，右键也不会出现任何形式的自动运行菜单。

分析一下，那个键值应该就是Windows用来记录和管理双击盘符和盘符上的右键菜单的，在里面查找，然后决定执行什么操作，仔细查看的话，你会发现更多的内容。我们把这个键值的操作权限对everyone屏蔽之后，系统无法访问到这个对应表，于是只有打开的操作。

这样就应该可以彻底的解决自动运行、以及双击盘符带来的染毒问题了。

通过rd /s /q，可以直接删除包含带点目录的autorun.inf目录；

让程序只能运行一次，自动激活已经运行的程序 - [Delphi]

Tag：Delphi

有时候我们的程序需要只能运行一次，并且再次运行的时候能够自动激活已经运行的程序并且跳到最前面。我找了网上的许多代码，发现只运行一次是很容易实现的，但激活已经运行的程序这一功能总是有点问题。

    一般方法都是找到已经运行的程序之后发一个消息过去，然后执行这两个API函数：
    ShowWindowAsync(Application.Handle, SW_NORMAL );   //设置窗口的显示模式为NORMAL(WindowStatus)
    SetForegroundWindow(Application.Handle); //设置程序为前台窗口
    但是我发现这两个函数经常只能达到让在后台的窗口在任务栏上的按钮闪烁。而在有的电脑上就能把在后台的窗口调到前台。而且我发现，用C#写的程序只需要调用这两个API函数就能达到目的。

    另外，经过实验发现，在我的电脑上，如果运行此程序的时候运行VS2005，并且随便打开一个项目，那么这个程序就能正常运行了...目前还是想不明白是什么原因造成的。

最后研究了很久之后又在后面加了下面几行代码：
ID1 := GetWindowThreadProcessId(GetForegroundWindow(), nil); //获取前台线程的ID
ID2 := GetCurrentThreadId;               //获取当前线程的ID
AttachThreadInput(ID1, ID2, TRUE);      //把前提线程附加到当前线程
AttachThreadInput(ID1, ID2, FALSE);     //取消附加       这样程序运行就完全达到要求了。另外如果把最后一个取消附加去掉，那么在运行两次程序之后再运行的时候，窗口获得焦点的速度就会慢上半拍。

    给出完整代码：
    [Project1.dpr]

program Project1;

uses
  Forms, Messages, Windows,
  Unit1 in 'Unit1.pas' {Form1};

const
  hfck = wm_user + $1000;
  appname = 'singleinstance';
var
  myhandle: hwnd;

{$R *.res}

begin
  myhandle := findwindow(appname, nil);
  if myhandle > 0 then
  begin
    postmessage(myhandle, hfck, 0, 0);
    exit;
  end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

end.


    [Unit1.pas]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, tlhelp32, StdCtrls;

const
  hfck = wm_user + $1000;
  appname = 'singleinstance';

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure createparams(var params: tcreateparams); override;
    procedure restorerequest(var msg: tmessage); message hfck;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.createparams(var params: tcreateparams);
begin
  inherited createparams(params);
  params.WinClassName := appname;
end;

procedure TForm1.restorerequest(var msg: tmessage);
var
  ID1, ID2: Cardinal;

begin
  if IsIconic(Application.Handle) then
    ShowWindowAsync(Application.Handle, SW_NORMAL );   //设置窗口的显示模式为NORMAL(WindowStatus)
  SetForegroundWindow(Application.Handle);  //设置程序为前台窗口
  ID1 := GetWindowThreadProcessId(GetForegroundWindow(), nil);  //获取前台窗口的线程ID
  ID2 := GetCurrentThreadId;               //获取当前线程的ID
  AttachThreadInput(ID1, ID2, TRUE);      //把前提线程附加到当前线程
  AttachThreadInput(ID1, ID2, FALSE);     //取消附加
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(appname);
end;

end.