Windows API移动文件

function TScanFileThread.MoveFile(FileName: string): Boolean;
var
  F: TShFileOpStruct;
begin
  with F do begin
    Wnd := Handle;
    wFunc := FO_MOVE;
    pFrom := PChar(Directory + FileName + #0#0);
    pTo := PChar(SaveDirectory + FileName + #0#0);
    fFlags := FOF_RENAMEONCOLLISION or FOF_NOCONFIRMMKDIR;
  end;
  if ShFileOperation(F) = 0 then begin
    Result := True;
  end
  else begin
    Result := False;
  end;
end;

一开始pFrom和pTo没有以“#0#0”结尾,结果发现在有的机器上能移动成功,有的机器上SHFileOperation返回1026无法转移,查了一下资料

ShFileOperation中的pFrom和pTo中可以包含多个文件名,文件名之间用 ‘\0′ 分割,最后以两个\0结束。

标签:, ,

相关日志

《PES 2008》将于今年10月26号发售

  近日,不少国外的线上零售商游戏已经将万众瞩目的足球游戏放到了货架之上,游戏的发售日期标为2007年10月26日。

  之前KONAMI就已经表示,他们的《PES2008》将于今年秋季发售,按照以往的惯例来说秋季发售《WE》年底发售《PES》第二年初发售《WE 加强版》已经成为了KONAMI的一个习惯,而玩家们也早已型成了一个习惯…

  《Pro Evolution Soccer 2008(暂称)》(简称:PES2008)计划推出PS3、XBOX360、PC、PS2、PSP、DS几个版本,KONAMI表示新一作《PES》将是球员AI上的一次革命,被KONAMI命名为Teamvision的系统可以让电脑不断学习玩家的风格并根据玩家的游戏风格来调整相关的战术。

  照KONAMI的说法,Teamvision将完全有可能改变平常《PES》玩家的游戏方式,玩家经常利用某些固定打法来进行游戏话胜利将会离他越来越远。此外,Teamvision还对于游戏的整体着非常巨大的影响。

  期待游戏发售时能真的让我们感受到该游戏的“全新革新”!

twsv_s09335512.jpg

标签:, ,

TWebBrowser显示自定义Html内容

  1. uses
  2.   ActiveX, MSHtml;
  3.  
  4. var
  5.   Document: IHtmlDocument2;
  6.   V: OleVariant;
  7. begin
  8.   WebBrowser1.Navigate('about:blank');
  9.   Document := WebBrowser1.Document as IHtmlDocument2;
  10.   V := VarArrayCreate([0, 0], varVariant);
  11.   V[0] := 'Hello World';
  12.   Document.Write(PSafeArray(TVarData(v).VArray));
  13. end;
标签:, ,

相关日志

推荐两个扯淡的feed

http://feeds.feedburner.com/cdeveryday
http://feeds.feedburner.com/hteveryday

万元大钞

如图,来自归国人士肉多多同学

20070701.jpg

Page 2 of 2«12

京ICP备05059555号