摘要：/// <summary> /// 通知Windows改变墙纸 /// </summary> /// <param name="strFile">墙纸图片路径</param>procedure TfrmPara.SetRegWallPaper(strFile: string);var reg : TRegistry;begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; try if reg.OpenKey('Control Panel\Desk 阅读全文
TFileStream用法
2012-04-15 16:22 by 落魄的鸡, 608 阅读, 0 推荐, 收藏, 编辑
摘要：// 写入中文procedure TForm1.btn1Click(Sender: TObject);var Stream : TFileStream; fn : string; fname : string; Size : Integer; Buffer : TBytes; Encoding : TEncoding;begin fn := ExtractFilePath(Application.ExeName) + 'config.dat'; try Stream := TFileStream.Create(fn, fmCreate); Stre... 阅读全文