CopyFile

[MAZADA]

ребята помогите!
У меня есть dirDialog11

if dirDialog11.Execute then
Label1.Caption:= (dirDialog11.DirPath);

Labe1 сохраняю в ini

ini.WriteString('toca', 'label1', label1.Caption);

Значит путь у меня прописан! Он лежит в ini файле!

Потом на второй форе стоит кнопка, на нажатие на нее должно скопировать фай под именем "db.fdb" в папку которая вписана в ini-файл!

ребята помогите я не знаю как сделать!

[grafgrial]

значит копировать так должен

copyfile('db.fdb', ini.readstring('toca','label1,'')+'\+db.fdb');

чего сложного?

[Stilet]

Значит путь у меня прописан!

И значит ничто не мешает тебе его проверить открыв этот ИНИ в блокноте

grafgrial

Я б на всякий случай так написал:

var s:string;
...
 s:=ini.readstring('toca','label1,'');
 if DirectoryExists(s) then
  copyfile('db.fdb', s+'\+db.fdb')
 else
  ShowMessage('Некуда спешить, нечего терять ;)');
  // Ну или тут создавать каталог - ForceDirectory(s);
...

И еще такая маненькая деталька: copyfile не любит краткие пути. Если db.fdb лежит в папке с прогой то стоит писать

copyfile(ExtractFilePath(Paramstr(0))+'db.fdb'...

[MAZADA]

Ребята у меня не получается!
вот мой код!

procedure TKacca.RfButton1Click(Sender: TObject);
var
ini: TIniFile;
  ph: THandle;
  tp, prevst: TTokenPrivileges;
  rl: DWORD;
begin
if MessageBox(Handle, PChar('Çàâåðøèòè äåíü?'), PChar('Çàâåðøåííÿ äíÿ...'),
               MB_ICONINFORMATION+MB_OKCANCEL+MB_DEFBUTTON2) = IDOK
               then begin
             if  DeleteFile('DB-copy\DB.FDB') then
  if   copyfile('db.fdb', ini.readstring('toca','label1,'')+'\+db.fdb')
   then
    ShowMessage('â êàññ³' + '  '+ panel1.Caption +'ãðí.    '+'ÁÄ óñï³øíî ñêîï³éîâàíà')
  else ShowMessage('Ïîìèëêà!');

  begin
 { OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
    TOKEN_QUERY, ph);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0); }
  close;
    end;
    end;
    end;

вот ошибка там где звездочка!

copyfile('db.fdb', ini.readstring('toca','label1,'')+'\****+db.fdb')

В чем причина ошибки?

[grafgrial]

Stilet, я подумал он задумается насчет пути ...
так может!!
copyfile(ExtractFilePath(Paramstr(0 ))+'db.fdb', ini.readstring('toca','label1,'')+' \****\db.fdb'); прочитай еще раз пост Stilet
И сударь подумайте..

[MAZADA]

блин не работает

copyfile(ExtractFilePath(Paramstr(0 ))+'db.fdb', ini.readstring('toca','label1,'')+' \DB-copy\db.fdb')

[ZuBy]

может там два слеша?
посмотри сохраненный путь

copyfile(ExtractFilePath(Paramstr(0))+'db.fdb', ini.readstring('toca','label1,'')+'{\}DB-copy\db.fdb')

[MAZADA]

у меня ошибка перед

ini.readstring('toca','label1,'')+'{\}DB-copy\db.fdb')

procedure TKacca.RfButton1Click(Sender: TObject);
var
ini: TIniFile;
  ph: THandle;
  tp, prevst: TTokenPrivileges;
  rl: DWORD;
begin
if MessageBox(Handle, PChar('Çàâåðøèòè äåíü?'), PChar('Çàâåðøåííÿ äíÿ...'),
               MB_ICONINFORMATION+MB_OKCANCEL+MB_DEFBUTTON2) = IDOK
               then begin
             if  DeleteFile('DB-copy\DB.FDB') then
if copyfile(ExtractFilePath(Paramstr(0))+'db.fdb', ini.readstring('toca','label1,'')+'{\}DB-copy\db.fdb')
   then
    ShowMessage('â êàññ³' + '  '+ panel1.Caption +'ãðí.    '+'ÁÄ óñï³øíî ñêîï³éîâàíà')
  else ShowMessage('Ïîìèëêà!');

  begin
 { OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
    TOKEN_QUERY, ph);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0); }
  close;
    end;
    end;
    end;

[ZuBy]

if  DeleteFile(ini.readstring('toca','label1,'')+'\DB-copy\DB.FDB') then
if copyfile(ExtractFilePath(Paramstr(0))+'db.fdb', ini.readstring('toca','label1,'')+'\DB-copy\db.fdb')

[MAZADA]

Сообщение от ZuBy

if  DeleteFile(ini.readstring('toca','label1,'')+'\DB-copy\DB.FDB') then
if copyfile(ExtractFilePath(Paramstr(0))+'db.fdb', ini.readstring('toca','label1,'')+'\DB-copy\db.fdb')

дай майл - я тебе проект брошу поможешь мне7???