|
Платные хостинги
Раскрутка сайта
Книги по программированию
Скопировать файл., Чёт я затупил.
- Например, у меня в Edit1 путь к файлу, кам мне его скопироват по пути которое пользователь напишет в edit2?
- Самое простое:Код CopyFile(PChar(Edit1.Text), PChar(Edit2.Text), true);highlightSyntax('delphiGJlY2U','delphi');
- Например так:Код CopyFile(PAnsiChar(Edit1.Text), <Куда копировать>, False)highlightSyntax('delphiU5ZGZj','delphi');
- Ну а если хочется красивше:Код var SHFileOpStruct: TSHFileOpStruct; FFile:PChar; TFile:PChar; BufferSize1:Cardinal; BufferSize2:Cardinal;begin BufferSize1:=Length(Edit1.Text) + 1 +1; GetMem(DirName, BUfferSize1); BufferSize2:=Length(Edit2.Text) + 1 +1; GetMem(DirName, BUfferSize2); try FillChar(FFile^, BUfferSize1, 0); StrPCopy(FFile, PChar(Edit1.Text)); FillChar(TFile^, BUfferSize2, 0); StrPCopy(TFile, PChar(Edit2.Text)); with SHFileOpStruct do begin Wnd:= Application.Handle; wFunc:=FO_COPY; pFrom:=FFile; pTo:=TFile; fFlags:=FOF_ALLOWUNDO; fAnyOperationAborted:=false; hNameMappings:=nil; lpszProgressTitile:=nil; end; if SHFileOperation(SHFileOpStruct) <> 0 then RaiseLastWin32Error; finally end;end;highlightSyntax('delphiwYTFlN','delphi');что-то в этом духе...
- Пасиб=)
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
