Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Пытаюсь скопировать диск на жесткий, не могу..... [D6, Win95/98]

Ник © (2004-06-18 21:11:00)
Вот код

procedure CreateBuffer( Names : array of string; var P : TBuffer );
var I, J, L : Integer;
begin
for I := Low( Names ) to High( Names ) do
begin
L := Length( P );
SetLength( P, L + Length( Names[ I ] ) + 1 );
for J := 0 to Length( Names[ I ] ) - 1 do
P[ L + J ] := Names[ I, J + 1 ];
P[ L + J ] := #0;
end;
SetLength( P, Length( P ) + 1 );
P[ Length( P ) ] := #0;
end;

function CopyFiles( Handle : Hwnd; Src : array of string; Dest : string; Move : Boolean; AutoRename : Boolean ) : Integer;
var
SHFileOpStruct : TSHFileOpStruct;
SrcBuf : TBuffer;
begin
CreateBuffer( Src, SrcBuf );
with SHFileOpStruct do
begin
Wnd := Handle;
wFunc := FO_COPY;
if Move then wFunc := FO_MOVE;
pFrom := Pointer( SrcBuf );
pTo := PChar( Dest );
fFlags := 0;
if AutoRename then fFlags := FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
Result := SHFileOperation( SHFileOpStruct );
SrcBuf := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFiles( Handle, [ 'd:\' ], 'C:\Temp', True, True );
end;

При запуске мне говорят, что ошибка файловой системы (1026)

Что не верно\неуказано\вообще не так\а как тогда?

Мож ссылку дадите на пример? Надо диск на комп переписать программно.

Ник (2004-06-18 21:22:00) [1]
Ну вообще то папки с содержимым.
Но когда я задаю точное имя файла, опять ошибку выдает, мол диск переполнен или защищен от записи.

Vit@ly (2004-06-18 21:17:00) [2]
Пытаюсь скопировать диск на жесткий, не могу..... [D6, Win95/98]

Так что ты хочешь скопировать? Диск с системной областью (партишин, фат и т.д.) или папки с их содержимым? Отсюда ответ напрашивается сам

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »