Skip to content

月份:2008年2月

Windows历史

一、Microsoft Windows V1.0
IPB Image
Windows 1.0版外包装

IPB Image
Windows 1.0版的光盘介质采用的5.25寸软磁盘

IPB Image
Windows 1.01启动界面

1985 年11月,Microsoft Windows 1.0发布,最初售价为100美元;当时被人所青睐的GUI电脑平台是GEM及Desqview/X,因此用户对Windows 1.0的评价并不高。 但是作为一种用户图形界面的尝试,1.0版还是从本质上宣告了MS-DOS操作系统的终结。
在随后的两年里,Windows 1.0共发行了四个版本,分别为: 1985 年11月的1.01版、1986 年1月的1.02版、1986 年8月的1.03版、1987 年4月的1.04版。这个时候的包装是以蓝色为背景的正方形纸质盒子,非常的普通。

Leave a Comment

TFileStram简单实现多实例共享读写Text文件

想起都是自己笨,以前写的一个项目需要有LOG,当时使用了TStringList来读写,大家可以想像性能是怎样,本人是多么的笨,当LOG越来越大性能越来越慢,呵呵,没救了!!
  前段时间又修改了一下,使用AssignFile/Reset/Append等函数访问文件,调用Writeln函数写入,当时没有发现什么问题(又是懒的问题,没有做多实例测试),直到这两天,程序真正用起来的时候发现问题,第一个实例打开后,第二个实例不能启动。
  一查之下是I/O error,LOG文件被拒绝访问了!问题在于访问LOG文件时没有实现共享。
  今天查了一下Delphi的帮助,使用TFileStrem实现了多实例共享。代码非常简单:

var
  LogMsg: string;
  fs: TFileStream;
begin
  LogMsg := ‘This is a log line.’#13#10;
  fs := TFileStream.Create(‘log.log’, fmOpenWrite or fmShareDenyNone);
  try
    fs.Seek(0, soFromEnd);
    fs.Write(LogMsg[1], Length(LogMsg));
  finally
    fs.Free;
  end;
end;

  说一下fmOpenWrite和frmShareDenyNone,在Delphi的帮助里COPY出来翻译一下:

文件打开模式
fmCreate 创建一个新文件,如果文件存在则以写方式打开并复盖
fmOpenRead    只读打开文件
fmOpenWrite 只写打开文件
fmOpenReadWrite    以读写的方式打开文件
共享模式
fmShareCompat FCBs兼容格式,好像是为兼容DOS的
fmShareExclusive 排除共享,其他程序不可以访问该文件
fmShareDenyWrite 排写共享,其他程序可以读取该文件,但不可写
fmShareDenyRead 排读共享,其他程序可以写入该文件,但不可读
fmShareDenyNone 完全共享,其他程序可以任意读写该文件

1 Comment

今年市里的迎春花灯

  昨天回来的时候超郁闷。。本来2点的车改成2点20分发车,最后还要晚点。。。3点10分左右,车终于出发了。在河源前段路并没有上高速,过了半个小时多才上高速,然后一段路后又下高速,就这样一段一段的,搞到6点多才到广州!天那!!从广州回我老家还要2个小时呢!
  车进广州后还是增城,还没有真正进入返回肇庆的路段。最后6点半左右车才进入广三高速,真正返回肇庆,最后搞到8点40分左右我才下车。真郁闷啊,坐了6个多小时!我从河源坐车到广州,然后再转车回去都不用这么长时间。唉,算吧,能回去就行了。
  下车后看到市里搞了一些花灯,随便溜达了一下,照了一些相片。随后就找车回家,最终到家里已经是晚上10点30分!

  相片全部都是用我的N70照的,而且是晚上,所以质量有点差。
     

Leave a Comment