盒子论坛 v2.1

把c:\hubdog.txt 改成c:\newhubdog.txt

procedure TForm1.Button1Click(Sender: TObject);
var
  P: PWideChar;
  NewPIDL,RenPIDL,PathPIDL: PItemIDList;
  Flags,
  NumChars: LongWord;
  //Index: Integer;
  NewShellFolder: IShellFolder;
  Value,PathValue:String;
begin
  SHGetDesktopFolder(FIDesktopFolder);
  Value:='hubdog.txt';
  PathValue:='C:\';
  NumChars := Length(PathValue);
  Flags := 0;
  P := StringToOleStr(PathValue);

  OLECheck(
    FIDesktopFolder.ParseDisplayName(
      Application.Handle,
      nil,
      P,
      NumChars,
      PathPIDL,
      Flags)
   );

  OLECheck(
    FIDesktopFolder.BindToObject(
            PathPIDL,
            nil,
            IID_IShellFolder,
            Pointer(NewShellFolder))
   );

  NumChars := Length(Value);
  Flags := 0;
  P := StringToOleStr(Value);

  OLECheck(
    NewShellFolder.ParseDisplayName(
      Application.Handle,
      nil,
      P,
      NumChars,
      NewPIDL,
      Flags)
   );

  if NewShellFolder.SetNameOf(
            Application.Handle,
            NewPIDL,
            StringToOleStr('newhubdog.txt'),
            128,
            RenPIDL
            )=noerror then
    showmessage('ok');
  //SHChangeNotify(SHCNE_RENAMEITEM,SHCNF_FLUSH,NewPIDL,nil);
end;
----------------------------------------------
维护世界和平，共创美好盒子。

信息

登陆以后才能回复