小帆工作室(网络记事本)

RSS订阅

用户未订阅RSS信息

告示牌

文章列表

Windows 资源管理器命令行开关

2009-07-10 上午 09:08

http://support.microsoft.com/kb/130510

语法

EXPLORER.EXE [n] [/ e] [，/ 根，<object>] [[，/ select]，< 子对象 >]

开关

/n:  Opens a new window in single-paned (My Computer) view for each item
     selected, even if the new window duplicates a window that is
     already open.

阅读全文>>

类别：Delphi | 评论(0) | 浏览()

建立快捷方式

2009-07-06 下午 04:47

uses
  ShlObj, ActiveX, ComObj; {该函数使用的单元}

{函数说明:}
{第一个参数是要建立快捷方式的文件, 这是必须的; 其他都是可选参数}
{第二个参数是快捷方式名称, 缺省使用参数一的文件名}
{第三个参数是指定目的文件夹, 缺省目的是桌面; 如果有第四个参数, 该参数将

阅读全文>>

类别：Hide | 评论(0) | 浏览()

最近在开发"千千静听"的皮肤编辑软件

2009-03-03 上午 00:11

下面是一些预览:
1.原始设计:

2.可以加载别的皮肤进行修改,加载了其他现成的皮肤效果:

阅读全文>>

类别：Delphi | 评论(3) | 浏览()

检测用户超过5分钟没有操作键盘或鼠标

2009-03-01 下午 11:57

procedure TForm1.Timer1Timer(Sender: TObject);
var
  vLastInputInfo: TLastInputInfo;
begin
  vLastInputInfo.cbSize := SizeOf(vLastInp

阅读全文>>

类别：Delphi | 评论(0) | 浏览()

删除任意文件的任意位置的任意数量的字符

2009-03-01 下午 09:14

C:\Documents and Settings\user\My Documents\RAD Studio\Projects\Unit1.pas function DelChar(AFile: string; DelStart, DelCount: integer): integer

阅读全文>>

类别：Delphi | 评论(0) | 浏览()

判断字符串是否为数字[转]

2009-02-26 下午 06:35

function IsNumeric(AStr:   string):   Boolean;
var
Value:   Double;
Code:   Integer;
begin
Val(AStr,   Value,   Code);
result   :=   Code   =   0;
end;

阅读全文>>

类别：Delphi | 评论(2) | 浏览()

中国十个最令人寒心的笑话

2009-02-22 上午 01:26

1.秦始皇修筑万里长城时死了许多人，孟姜女的丈夫万喜良也在其中。听到这个消息，孟姜女只觉得天昏地暗，一下子昏倒在地，醒来后，她伤心地痛哭起来，
只哭得天愁地惨，日月无光。不知哭了多久，忽听得天摇地动般地一声巨响，长城崩塌了几十里，露出了数不清的尸骨。孟姜女咬破手指，把血滴在一具具的尸骨
上，她心里暗暗祷告：如果是丈夫的尸骨，血就会渗进骨头，如果不是，血就会流向四方。终于，孟姜女用这种方法找到了万喜良的尸骨。她抱着这堆白骨，哭着
说道："老万，你的死跟你丫本人素质不高有关啊！"

阅读全文>>

类别：默认分类 | 评论(1) | 浏览()

搜索字符串在流中的位置

2009-01-19 上午 10:15

C:\Documents and Settings\user\My Documents\RAD Studio\Projects\Unit1.pas (*//
标题:搜索字符串在流中的位置
说明:适用于文件搜索等
设计:Zswang
支持:wjhu111@21cn.com
日期:2004-03-21
//*)

(*//==============================================================

阅读全文>>

类别：Delphi | 评论(1) | 浏览()

[原创]一点技巧

2008-12-09 上午 08:18

var
s: WideString;
ms: TMemoryStream;
begin
s := '0123456789ABCDEFG中文可以吗';
ms := TMemoryStream.Create;
ms.WriteBuffer(Pointer(S)^, Length(S)*2);
ms.SaveToFile('c:\123.txt

阅读全文>>

类别：Delphi | 评论(0) | 浏览()

美国兰德公司对中国人的评价

2008-12-02 上午 03:49

美国兰德公司是一家著名的非盈利的研究机构，为美国官方提供“客观的分析和有效的解决方案”。最近，他们公布了一份对中国现状分析报告，即有肯定，也有严厉批评，值得国人反省。本文观点来自兰德公司亚太政策中心。

如果20世纪的中国是一个富裕和统一的国家，我们会有一个完全不同的第一次世界大战，我们就不会有第二次世界大战而是第二次欧洲大战。中国能够阻止日本侵略或者打败日本。美国在这些冲突上的花费从根本意义上会减少很多，因为珍珠港事件不会发生。我们和整个世界，更不用说10亿中国人，一个多世

阅读全文>>

类别：默认分类 | 评论(0) | 浏览()

内存加载DLL(转自wr960204(武稀松)的BLOG专栏)

2008-10-13 下午 08:36

//内存加载DLL(转自wr960204(武稀松)的BLOG专栏)

有个需求是把一个DLL作为数据打包到EXE中,运行的时候动态加载.但要求不是释放出来生成DLL文件加载.

花了一天时间做出来.效果还可以.

不过由于是直接分配内存加载DLL的.有一些小缺陷.例如遍历进程中加载的模块的时候是找不到这个DLL的.GetModuleXXXX之类的 API也就不能用了.当然也可以Hook这些函数做处理.不过便利不到这个模块也未必不

阅读全文>>

类别：Delphi | 评论(0) | 浏览()

无聊，学渲染。。。

2008-09-19 下午 10:03

犀牛4.0 + Flamingo 2.0

类别：默认分类 | 评论(0) | 浏览()

很不幸...

2008-09-04 下午 12:14

很不幸，我们是一个伟大的国家，要注重形象分的，这也是我们小到牙刷、大到宇宙飞船都不能发明的原因，因为，我们没有除旧立新的用人体制，所以中国的大学再多，国际认同的学历始终极少，国际一流大学更没有我们的份。看着李春江“罢赛”文章后面的那些愚民教育结果的评论，我仿佛看到了中国“外软内强”的年代，这很悲哀，如同一个女人给人摸了乳房也不敢反抗，有的只是口头的强烈不满。

类别：默认分类 | 评论(0) | 浏览()

怪现象

2008-07-13 下午 07:08

希丁克说：
你们记者的水平很高,何不请请记者执教呢,而且意大利也曾经有个一位成功者.（指前意大利国家队教练--萨治）.
可见国家队的执教环境如何
当初的米卢,那些媒体又是如何呀,未出线前不断质疑,出线后又不断贬低说什么谁带都能出线。
不幸的是这些事现在就发生在篮球身上
而且有些人还乐此不疲。

类别：默认分类 | 评论(0) | 浏览()

正在开发XIAPLAYER的皮肤编辑器

2008-05-14 上午 09:56

这个是软件运行时候的样子！！！非 Delphi IDE！

类别：Xiaplayer | 评论(4) | 浏览()