請教 1按一button後建立一個001的目錄 2用openpicturedialog開啟一個圖檔按button後如何把圖檔複製到001目錄下 感謝 「堅持」從洗馬桶做起 Aric

1.

uses FileCtrl;    procedure TForm1.Button1Click(Sender: TObject);
begin
  if not DirectoryExists('c:\001') then
    if not CreateDir('C:\001') then
    raise Exception.Create('Cannot create c:\001');
end;

2.

uses ShellApi;    procedure TForm1.Button1Click(Sender: TObject);
var
  FOS :TSHFileOpStruct;
begin
  if OpenDialog1.Execute then begin
    with FOS do begin
      Wnd := Self.Handle;
      wFunc := FO_COPY;
      pFrom := PChar(OpenDialog1.FileName);
      pTo := 'c:\001';
      fFlags := FOF_NoConfirmMkDir;
    end;
    SHFileOperation(FOS);
  end;
end;

--- 歡迎光臨 KTop 研究院 發表人 -

引言: 感謝大大的回答 但以下紅色的部分help中找不到能否說明 1.

uses FileCtrl;    procedure TForm1.Button1Click(Sender: TObject);
begin
  if not DirectoryExists('c:\001') then  
    if not CreateDir('C:\001') then
    raise Exception.Create('Cannot create c:\001');
end;

2.

uses ShellApi;    procedure TForm1.Button1Click(Sender: TObject);
var
  FOS :TSHFileOpStruct; //tshfileopstruct
begin
  if OpenDialog1.Execute then begin
    with FOS do begin
//以下wnd,wfunc,pfrom,pto,fflags是TSHFileOpStruct的參數嗎?可否說明一下意義?
      Wnd := Self.Handle; 
      wFunc := FO_COPY;
      pFrom := PChar(OpenDialog1.FileName);
      pTo := 'c:\001';
      fFlags := FOF_NoConfirmMkDir;
    end;
    SHFileOperation(FOS);//shfileoperation
  end;
end;

--- 歡迎光臨 KTop 研究院 發表人 - >< face="Verdana, Arial, Helvetica"> 「堅持」從洗馬桶做起 Aric 發表人 - huangeider 於 2003/10/11 12:53:34

Delphi IDE 選單 Help -> Windows SDK 在 "索引" 輸入 SHFileOperation 就可以看到詳細的答案了.    --- 歡迎光臨 KTop 研究院

引言: 小弟已找到不過有個問題 sdk中文是什麼意思? Delphi IDE 選單 Help -> Windows SDK 在 "索引" 輸入 SHFileOperation 就可以看到詳細的答案了. --- 歡迎光臨 KTop 研究院 < face="Verdana, Arial, Helvetica"> 「堅持」從洗馬桶做起 Aric

這有一段可以參考: http://iroi.seu.edu.cn/books/ee_dic/whatis/sdk.htm [剪貼如下]: An SDK (software developer's kit) is a set of programs used  by a computer programmer to write application programs.  Typically, an SDK includes a visual screen builder, an editor,  a compiler, a linker, and sometimes other facilities. The term  is used by Microsoft, Sun Microsystems, and a number of other  companies.    --- 歡迎光臨 KTop 研究院

引言: createdir只能在根目錄下建目錄嗎? 能在一個如c:\direct底下建立001目錄嗎?

「堅持」從洗馬桶做起 Aric

一次要建立多層目錄, 請用 ForceDirectories 這個 function, ex:

uses FileCtrl;    procedure TForm1.Button1Click(Sender: TObject);
var 
  sDir: string;
begin
  sDir := 'C:\Direct\001';
  if not DirectoryExists(sDir) then
    if not ForceDirectories(sDir) then
      ShowMessage('無法建立 '   sDir   ' 目錄');
end;

--- 歡迎光臨 KTop 研究院 發表人 -

引言: 感謝 用一個tedit 給予一個變數 如何用 createdir()把tedit內的變數建成目錄? 這個問題是''符號的問題 如 createdir(tedit.text)可以執行但無法建立目錄?

「堅持」從洗馬桶做起 Aric

小弟試了一下, 即使 Edit1.Text 內有單引號 仍是可以建立該目錄.    --- 歡迎光臨 KTop 研究院

引言: 小弟試了一下, 即使 Edit1.Text 內有單引號 仍是可以建立該目錄. 因為是使用者在tedit內設的變數,不能直接有單引號,必須人工加上單引號, --- 歡迎光臨 > < face="Verdana, Arial, Helvetica"> 「堅持」從洗馬桶做起 Aric

CreateDir(Edit1.Text) 不就好了嗎？ 為什麼要人工加上單引號？    --- 歡迎光臨 KTop 研究院

引言: CreateDir(Edit1.Text) 不就好了嗎？ 為什麼要人工加上單引號？ edit1.text:=direct; CreateDir(Edit1.Text); 這樣可以執行但沒辦法建立direct 小弟是認為是''的符號的問題 --- 歡迎光臨 KTop 研究院 < face="Verdana, Arial, Helvetica"> 「堅持」從洗馬桶做起 Aric

引言:

引言: CreateDir(Edit1.Text) 不就好了嗎？ 為什麼要人工加上單引號？ edit1.text:=direct; CreateDir(Edit1.Text); 這樣可以執行但沒辦法建立direct 小弟是認為是''的符號的問題 我又試了一下重建了一個新的目錄然後試了一下可以建目錄 怪了 在原來的目錄不行->是> --- 歡迎光臨 > < face="Verdana, Arial, Helvetica"> 「堅持」從洗馬桶做起 Aric

「堅持」從洗馬桶做起 Aric

direct 這個變數的值為何？ 還是指 Edit1.Text := 'direct' ？ 另外, 回文的時候不要回在前者的引言裏面 不好閱讀.  --- 歡迎光臨 >

引言: 這個問題已有滿意的答案

「堅持」從洗馬桶做起 Aric