Выбор папки:
Код:
uses FileCtrl;
const
SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'C:\Windows';
if FileCtrl.SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;
Копирование и создание папки:
Код:
uses
IOUtils;
procedure TForm1.btnCopyClick(Sender: TObject);
begin
try
{ Copy directory from source path to destination path }
TDirectory.Copy(edSourcePath.Text, edDestinationPath.Text);
except
{ Catch the possible exceptions }
MessageDlg('Incorrect source path or destination path', mtError, [mbOK], 0);
end;
end;
procedure TForm1.btnCreateClick(Sender: TObject);
begin
try
{ Create directory to specified path }
TDirectory.CreateDirectory(edSourcePath.Text);
except
{ Catch the possible exceptions }
MessageDlg('Incorrect path', mtError, [mbOK], 0);
end;
end;
Интерактивное копирование файлов по маске (почти тоже самое что и у предыдущего оратора)):
Код:
Procedure CopyFiles(From , Dest:String);
var
F : TShFileOpStruct;
begin
F.Wnd := 0;
F.wFunc := FO_COPY;
F.pFrom := PCHAR(From);
F.pTo := PCHAR(Dest);
F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
if ShFileOperation(F) <> 0 then ShowMessage('Copy Failed');
end;
CopyFiles('c:\testfolder2\*.txt', 'c:\testfolder');
По запуску JAR, скорее всего, нормально отработает это:
Код:
ShellExecute(
0,
nil,
'java.exe',
'-Xmx1024M -Xms1024M -jar minecraft_server.jar',
nil,
SW_SHOW
);