创业的路径、方法其实很多何必只局限于网站
[ 2011-01-17 21:07 | by 草山湖 ]
每每谈及创业，许多人常常诉说，没有技术，没有资金，没有经验，没有门路不知该搞哪一门。其实不然。创业的路径、方法很多，以下几点，希望对每个创业者有所启发。没有调查就没有发言权。在确定创业方向之前，如果做些市场调查，就能够大大减少失败的几率，提高成功的可能性。
邓长勇高中毕业后，一直待业在家。一次偶然看到办出租录音磁带亭的信息，于是他认真地做了一次市场调查，发现这样的出租亭在当地还没有人办。而他们那里经济迅速发展，市区的轿车、出租车很多，而且增加很快，道路建设却一下子跟不上，致使经常塞车。在塞车时间里，司机觉得很无聊，而车载机已经很普及。他觉得出租录音磁带有很大市场潜力。于是在一个交通便利，便于停车的地方开了一个磁带出租亭，兼卖杂志和书报。由于出租手续简便、形式多样(日租、月租、年租)，服务热情，在司机中树立了良好的形象，三个月时间里纯利润达1.5万元。后来他在市场调查基础上又在邻近的几个市区设立了磁带出租亭，进行连锁经营。面向塞车的司机出租磁带，市场看起来很少，但是邓长勇就是在这个看起来很小的地方通过市场调查和研究开拓了一个很广阔的市场，获得了比较丰厚的收入。
邓长勇高中毕业后，一直待业在家。一次偶然看到办出租录音磁带亭的信息，于是他认真地做了一次市场调查，发现这样的出租亭在当地还没有人办。而他们那里经济迅速发展，市区的轿车、出租车很多，而且增加很快，道路建设却一下子跟不上，致使经常塞车。在塞车时间里，司机觉得很无聊，而车载机已经很普及。他觉得出租录音磁带有很大市场潜力。于是在一个交通便利，便于停车的地方开了一个磁带出租亭，兼卖杂志和书报。由于出租手续简便、形式多样(日租、月租、年租)，服务热情，在司机中树立了良好的形象，三个月时间里纯利润达1.5万元。后来他在市场调查基础上又在邻近的几个市区设立了磁带出租亭，进行连锁经营。面向塞车的司机出租磁带，市场看起来很少，但是邓长勇就是在这个看起来很小的地方通过市场调查和研究开拓了一个很广阔的市场，获得了比较丰厚的收入。
令美互联网汗颜的亚洲企业：腾讯上榜
[ 2010-12-24 12:47 | by 草山湖 ]
2010年中国互联网发展势头凶猛，也令美国科技界感到震撼。近日美国科技博客businessinsider评出了令美国科技公司汗颜的10家亚洲企业，其中包括6家中国公司，如百度、腾讯和淘宝网等。在全球科技市场，美国的互联网企业占绝对主导地位。但在中国，更广泛地说是亚洲，却是一个例外。 在那里，美国的互联网公司不是没有尝试过，而是那里的竞争对手根深蒂固，有头脑，更了解那里的市场。以下为令美国科技公司汗颜的10家亚洲企业名单：
1. 百度（打败谷歌）
令美互联网汗颜的亚洲企业：百度居首
谷歌在中国市场奋斗了几年时间，但今年早些时候已基本退出，市场份额不令人满意。而百度则不同，成功地打败了谷歌。目前，百度在中国搜索市场的份额约为60%，全球市场份额为6%，与微软必应持平。更令人印象深刻的是，99%的中国网民都在某种程度上使用百度搜索。
1. 百度（打败谷歌）
令美互联网汗颜的亚洲企业：百度居首
谷歌在中国市场奋斗了几年时间，但今年早些时候已基本退出，市场份额不令人满意。而百度则不同，成功地打败了谷歌。目前，百度在中国搜索市场的份额约为60%，全球市场份额为6%，与微软必应持平。更令人印象深刻的是，99%的中国网民都在某种程度上使用百度搜索。
Delphi 中根据鼠标位置获取网页元素
[ 2010-12-10 12:33 | by 草山湖 ]
根据鼠标位置获取网页元素,主要是对 IHTMLDocument2 方法 elementFromPoint 的使用
with TWebBrowserWithUI(Sender) do
begin
pt := Mouse.CursorPos;
pt := ScreenToClient(pt);
if PtInRect(Rect(Left, Top, Left + Width, Top + Height), pt) then
try
elem := nil;
elem := (Document as IHTMLDocument2).elementFromPoint(pt.X, pt.Y);
if (elem <> nil) and ((elem.tagName = 'A') or (elem.tagName = 'IMG'))
then
begin
url := elem.getAttribute('href', 0);
CreateSheet(url);
end;
except
on E: Exception do
ShowMessage(e.Message);
end;
end;
Cancel := True;
with TWebBrowserWithUI(Sender) do
begin
pt := Mouse.CursorPos;
pt := ScreenToClient(pt);
if PtInRect(Rect(Left, Top, Left + Width, Top + Height), pt) then
try
elem := nil;
elem := (Document as IHTMLDocument2).elementFromPoint(pt.X, pt.Y);
if (elem <> nil) and ((elem.tagName = 'A') or (elem.tagName = 'IMG'))
then
begin
url := elem.getAttribute('href', 0);
CreateSheet(url);
end;
except
on E: Exception do
ShowMessage(e.Message);
end;
end;
Cancel := True;
error 1325 ，favorites is not a valid short file name 问题解决
[ 2010-12-09 22:29 | by 草山湖 ]
今天装Delphi7时遇到了一个问题
error 1325 ，favorites is not a valid short file name，就是出现了这个错误，如图示
解决方法是：
先打开注册表编辑器，在“运行”中输入“regedit”
For Windows 9x 系统，打开如下的注册表键值
[HKEY CURRENT USER]\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders]
在右边一栏，将 Favorites path 的值改为 C:\Windows\Favorites
For Windows XP 系统，打开如下注册表键值
[HKEY CURRENT USER]\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders]
将 Favorites 的值改为 %USERPROFILE%\Favorites
error 1325 ，favorites is not a valid short file name，就是出现了这个错误，如图示
解决方法是：
先打开注册表编辑器，在“运行”中输入“regedit”
For Windows 9x 系统，打开如下的注册表键值
[HKEY CURRENT USER]\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders]
在右边一栏，将 Favorites path 的值改为 C:\Windows\Favorites
For Windows XP 系统，打开如下注册表键值
[HKEY CURRENT USER]\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders]
将 Favorites 的值改为 %USERPROFILE%\Favorites
