简洁技术，简单生活

个人博客原本使用2dev.info域名，今打算做个bbs,使用该域名挺好的，况且，还是觉得这个域名个人使用有点浪费。

这样，个人博客使用什么域名，就是个头疼的问题了。

使用minyoad.pp.ru?还是使用minyoad.pp.ru??

pp.ru会不会很快又像net.ru那样被GFW了？？担心啊。

但是，minyoad.pp.ru之前没有让搜索引擎收录过，收录会比较慢。

唉，头疼啊。

还是另外注册一个？？

找个合适的域名还是很痛苦的～～，在网上搜寻了两天了，找到一些domain generator之类的，还是没啥满意的。

- 阅读全文 -

wordpress安装到子目录，使用主域名，安装没有什么问题，但是，在使用其他域名绑定后，安装就出现了这样的问题：

An Unexpected HTTP Error occurred during the API request.

根据网上的说法：http://kirastackhouse.com/2009/09/18/wordpress-plugin-api-http-error-fix-it-now/

并不能解决问题，看来确实是域名的绑定的问题。

----------------

神奇啊，把域名和用户删掉，重新addon之后，竟然可以了。

- 阅读全文 -

How can I execute a program and have my code wait until it is finished?

The next procedure allows you to execute a program and to wait until it's finished:

functionWinExecAndWait32(FileName: string; Visibility: Integer): dWord;
varzAppName: array[0..512] ofChar;
  zCurDir: array[0..255] ofChar;
  WorkDir: string;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
beginStrPCopy(zAppName, FileName);
  GetDir(0, WorkDir);
  StrPCopy(zCurDir, WorkDir);
  FillChar(StartupInfo, Sizeof(StartupInfo), #0);
  StartupInfo.cb := Sizeof(StartupInfo);

  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := Visibility;
  if notCreateProcess(nil,
           zAppName, { pointer to command line string }nil, { pointer to process security attributes }nil, { pointer to thread security attributes }false, { handle inheritance flag }CREATE_NEW_CONSOLE or{ creation flags }NORMAL_PRIORITY_CLASS,
           nil, { pointer to new environment block }nil, { pointer to current directory name }StartupInfo, { pointer to STARTUPINFO }ProcessInfo) thenResult := -1 { pointer to PROCESS_INF }else

  beginWaitforSingleObject(ProcessInfo.hProcess, INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess, Result);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
  end;
end;

Delphi tip#50: to execute a program and wait a result

- 阅读全文 -

Algorithm of CRC32 calculation for file

If you need calculate a CRC32 for some file or some string, then you must do:
1. build a CRC table
2. calculate a CRC for each line of your file
3. calculate a total CRC
1. CRC table creation:

typeLong = recordLoWord: Word;
    HiWord: Word;
  end;

constCRCPOLY = $EDB88320;

varCRCTable: array[0..512] OfLongint;

procedureBuildCRCTable;
vari, j: Word;
  r: Longint;
beginFillChar(CRCTable, SizeOf(CRCTable), 0);
  fori := 0 to255 do

  beginr := i shl1;
    forj := 8 downto0 do

      if(r and1) <> 0 thenr := (r Shr1) xorCRCPOLY
      elser := r shr1;
    CRCTable[i] := r;
   end;
end;

- 阅读全文 -

判断电脑是否联网：

#41:PC is connected to a network or not

If you want to know if the PC is connected to a network under MS Windows then you can call a GetSystemMetrics() function (Windows API) with SM_NETWORK parameter:

if(GetSystemMetrics(SM_NETWORK) AND$01 = $01) then<PC isattached tonetwork>
else<PC is notattached tonetwork>

- 阅读全文 -

To enable autocomplete for edit/combobox

Starting from IE 5.5 Microsoft added a very cool feature to any editboxes/comboboxes - you may start to enter some value and automatically will be suggested a value from "list" (previous typed)

As you understand now I'll describe how to add such possibility to any editbox from your application:-)

1. you must declare a few const values:

const
SHACF_AUTOSUGGEST_FORCE_ON = $10000000;
SHACF_AUTOSUGGEST_FORCE_OFF = $20000000;
SHACF_AUTOAPPEND_FORCE_ON = $40000000;
SHACF_AUTOAPPEND_FORCE_OFF = $80000000;
SHACF_DEFAULT = $0;
SHACF_FILESYSTEM = $1;
SHACF_URLHISTORY = $2;
SHACF_URLMRU = $4;

2. you must declare a SHAutoComplete function from Shlwapi.dll library:

function SHAutoComplete(hwndEdit: HWnd; dwFlags: DWORD): HResult; stdcall; external 'Shlwapi.dll';

- 阅读全文 -

原帖见：Best delphi site? – Board4All

http://www.board4all.cz/

主要是各种控件下载，破解版，源码等，rs，hotfile下载，寻找最新破解组件的最佳去处。推荐

http://delphi.about.com/

主要讨论编程技巧，方法，有不少的技巧集合，综合等，也是学习Delphi的好地方。推荐

components

http://www.torry.net/ 组件，历史悠久了。

http://www.sourcecodeonline.com/sources/delphi.html

组件和控件列表，集中了不少开源和不开源的组件

http://www.koders.com/zeitgeist/delphi/

多种语言的控件，主要是可以看到源码

http://stackoverflow.com/questions/tagged/delphi

stackoverflow.com不用多介绍了吧，问答型的

http://delphibasics.co.uk/

delphi语言基础，类型，过程，语法等，例子很详细，推荐。

http://www.scalabium.com/index.html

提供一个smcomponents免费控件，还有smimport和smexport等收费控件，好像都是数据库相关的多。

另外，有个Delphi的faq和tips，都很不错的，可以看看。

http://www.delphidabbler.com/tips

不只有tips，还提供了一个codesnips，就是代码片段管理器，另外，还有不少的有用，开源的控件和单元。

推荐。

http://www.delphi3000.com

历史悠久了。

http://www.delphiforfun.org    (the best in algorithms)

算法相关的比较多，可以找到经典的大整数等的实现例子，还有相应源码。推荐。

http://www.gtdelphicomponents.gr

几个Delphi控件和程序

- 阅读全文 -

标  题: Self-Delete程序之Delphi版本，终于搞定了。
发信站: BBS 水木清华站 (Mon Jun  4 20:50:42 2001)
到Borland的论坛去问了问，确实跟laoduan说得一样，要自己GetProcAddress。代码如下：

program Project1;

{$APPTYPE CONSOLE}
uses
  SysUtils,
  Windows;

procedure DeleteSelf;
var
  hModule: THandle;
  buff: array[0..255] of Char;
  hKernel32: THandle;
  pExitProcess, pDeleteFileA, pUnmapViewOfFile: Pointer;
begin
  hModule := GetModuleHandle(nil);
  GetModuleFileName(hModule, buff, sizeof(buff));
  CloseHandle(THandle(4));
  hKernel32 := GetModuleHandle('KERNEL32');
  pExitProcess := GetProcAddress(hKernel32, 'ExitProcess');
  pDeleteFileA := GetProcAddress(hKernel32, 'DeleteFileA');
  pUnmapViewOfFile := GetProcAddress(hKernel32, 'UnmapViewOfFile');
  asm
         LEA         EAX, buff
         PUSH        0
         PUSH        0
         PUSH        EAX
         PUSH        pExitProcess
         PUSH        hModule
         PUSH        pDeleteFileA
         PUSH        pUnmapViewOfFile
         RET
  end;
end;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    DeleteSelf;
  except
    on E: Exception do
    begin
       Writeln(E.Classname, ': ', E.Message);
    end;
  end;
end.

现在有一点比较古怪，那就是必须把代码放在一个Procedure里，

- 阅读全文 -

生活，有时过得紧张充实、目标明确、胸有成竹、一连数月一切都有条不紊，目标胜利在望。当然有时则完全相反，被各种项目、无数的工作职责压得喘不过气来，完全无法翻身，直到精疲力竭。我不禁想这是为什么？要如何摆脱那种混乱？

我们的工作中，有一些是极其重要的，有一些并不那么重要，而另一些则是完全的不重要。在这篇指南中，我想谈一谈如何定义真正重要的事，怎样集中精力处理它们，以及时间分配上的一些策略。

• 剥离

下面的几个问题可以帮助你从无关紧要的生活琐事中找出并关注那些真正重要的事情。

1. 十年后你会有怎样的生活？我喜欢规划未来，憧憬生活：将自己置身于脑海中浮想的画面里。当你认为你就是被自己所创造出来的，那么这样去做则会收效更甚。回想一下那些曾经最珍爱的记忆、人物和重要时刻，你就会发现一些东西，它们影响你，把你塑造成了如今的你。同样的，顺着这条路展望未来十年，设想自己的追求，这会帮助我们把握当下，实现明朝。假使我幻想自己的未来是与家人其乐融融，和朋友把酒欢庆，那么这就意味着我现在就要好好维护着亲朋关系。
2. 你追求什么？一旦你认定了生命中的使命，这便为你在时间分配上奠定了基础，所以你应当重视这个问题。这有时很难，因为我们会认为自己的使命与现实中的工作并无关联，我并不同意这种看法。当我们通过现实中的工作还清债务，大胆冒险投资，或是把孩子送入大学进修时，没有人对此产生异议。但当现实中的工作用钱填加着你银行的户头，而那些钱对你来说已经并无多大意义了的时候，你便会不满，并开始希望能够活出真正的追求。
3. 什么能让你兴奋？有时我们不敢对自己承认自己真正想要去做的事和真正想要去成为的人，因为那想法并不被大众所接受，或是并没有现在的这份工作来的安稳。但在内心深处，我们知道是什么能让我们激动，是什么能让自己心跳加速，而又是什么能让我们兴奋得从早晨的被窝里一跃而起。
4. 你能忽略什么？从来就不可能有足够的时间去做每件事，去做每一件都你感兴趣的事。但你却有足够的时间去做那些你确实感兴趣，并且真正重要的事。就把那些不重要的都忽略掉吧。
5. 结果是否有意义？每项工作和任务都会产生结果，但结果本身却并不重要。重要的是它们对我们有多大的意义。有时因为别人希望我们最终取得成就，或是这结果会令人赞叹钦佩，我们便拼死拼活努力挣扎走下去。但如果这些对我们毫无意义，那么我们是不会满足于结果的。另一种情况，或许一开始我们取得了成就，但我们的兴趣点和追求却转变了。所以如果一件事对你没有意义，那就别管它对其他人是多么重要，它会多么值得赞叹或是曾经它多么重要过，是时候放手了。

• 安排时间

或许你已经知道了自己生命中真正重要的事，但是否又在为如何安排时间，专注于此而发愁？下面就给你一些小建议：

1. 首先去做。在《简单做》中，作者Leo建议挑出三件，放在早上先做。同样的，既然你找到了生命中真正重要的事，那就尝试在花时间做其他事情之前最先去关注它。已经有人证实过在一大早写作、工作或思考，效率会明显更高。我个人则崇尚先花时间用在自己身上，这样去过每一天。早上第一件事就是为个人目标而努力，然后再去做其他事。 那么每一天都会有一个积极的开始，并一直通向理想的未来。
2. 制定计划。我很忙，我的家人也是。但我和父母都想花时间互相陪伴，所以我写下家庭晚餐计划，并备忘在我的Google日历上。如同对待生活中任何其他事一样，我很认真的看待这个约定。它是我自己对未来的一个承诺，并且它真的很重要。
3. 当作紧急的事处理。我的生活被一个接一个的工作、约会和各种承诺所填满，毫无喘息。但当我不得不因为胰腺炎而动手术时，查看当天的工作列表却一个任务都去不掉。然而因为需要紧急治疗，我的日程安排还是为此停滞了下来。如果你正苦于无法摆脱琐事，或不确定去哪里找时间，那么就把你的人生使命看成紧急的事来做吧。从你的工作日程中去掉那些重要但非必要的事，尝试一天，不要再去想它们。那些你荒废于不重要的事情上的每一天，是你永远也无法补救的，对我来说，这就是紧急的事。

• 真正有意义的事，才是重要的

我们都深深懂得有不同的事物在驱使着我们——使我们兴奋的爱好，让我们付出更多时间去探索的激情，还有那些我们希望可以与之长久呆在一起的人们。我相信发现、专注于有意义的事，并对此倾注时间，并不是仅仅是停留在思想上。

专注于真正重要的事，去真正认真地对待吧。

原文：How To Focus On What Truly Matters - Zenhabits

译者：rany007（Elanso）

【转自】http://www.alibuybuy.com/16494.html

- 阅读全文 -

1.防止刷新时闪烁的终极解决办法

{ 防止刷新时闪烁的终极解决办法(对付双缓冲无效时) }
  Perform($000B, 0, 0); //锁屏幕  防止闪烁
// 做一些会发生严重闪烁的事情..
//解锁屏幕并重画
  Perform($000B, 1, 0);
  RedrawWindow(Handle, nil, 0, RDW_FRAME + RDW_INVALIDATE + RDW_ALLCHILDREN + RDW_NOINTERNALPAINT);

2.图片上显示透明文字

//图片上显示透明的文字
//直接用.Canvas.Brush.Style:=bsClear;
//然后.Canvas.TextOut(x,y,'文字显示透明');
procedure TForm1.Button1Click(Sender: TObject);
var
  bitBuf:TBitmap;
begin
  bitBuf := TBitmap.Create;
try
    bitbuf.LoadFromFile('测试图片.bmp');
    Self.Canvas.Draw(0,0,bitbuf);
    bitbuf.Transparent := True;
    bitbuf.TransparentColor := clWhite;    //文字显示透明
    bitbuf.Canvas.font.color := clBlue;     //文字颜色
    bitbuf.Canvas.TextOut(10,10,'这样就是透明的字了！');
    Self.Canvas.Draw(0,0,bitbuf);
finally
    bitBuf.Free;
end;
end;

3.取得本机IP地址(精简版)

//取得本地IP地址(精简版)
//注：使用函数前需要 WSAStartup($202, wsdata);
function GetLocalIP(): String;
var
  HostName: array[0..255] of Char;
  HostEnt: PHostEnt;
begin
  Result := '';
if gethostname(HostName, 255) = 0 then
begin
    HostEnt := gethostbyname(HostName);
    Result := StrPas(inet_ntoa(PInAddr(PInAddr(HostEnt^.h_addr_list)^)^));
end;
end;

- 阅读全文 -