ファイルをメッセージなしで上書きコピーするには

解決

クッキー 2004-06-23 20:16:05 No: 9602 IP: [192.*.*.*]

ファイルコピーを次のようにして行っています

uses ShellAPI;

var
  foStruct  :  TSHFileOpStruct;
begin
  with   foStruct   do
  begin
    wnd                :=   handle;
    wFunc              :=   FO_COPY;
    pFrom              :=   'C:\Temp\*.*' + #0;
    pTo                :=   'C:\Work\' + #0;
    fFlags             :=   FOF_FILESONLY  or  FOF_ALLOWUNDO;
    fAnyOperationsAborted   :=   False;
    hNameMappings      :=   nil;
    lpszProgressTitle  :=   nil;
  end;
  SHFileOperation(foStruct);
end;

メッセージを表示せずに上書きする方法を教えて下さい

編集削除

jok 2004-06-23 20:43:24 No: 9603 IP: [192.*.*.*]

fFlags := FOF_FILESONLY or FOF_ALLOWUNDO;

を

fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or FOF_NOCONFIRMATION;

にするとか

編集削除

クッキー 2004-06-23 21:04:45 No: 9604 IP: [192.*.*.*]

どうもありがとうございます

編集削除