ďťż

Ładny brzuch

Ten kod

 with Rekord do  begin   Wnd:=Handle;   wFunc:=FO_MOVE;   pFrom:=PChar(panel2.Caption);   pTo:=PChar(panel3.Caption);   fFlags:=FOF_NOCONFIRMMKDIR;  end;

powinien przenieść plik, którego adres zawarty jest na penel2.caption do adresu zawartego na panel3.caption, ale tego nie robi, po jego wywołaniu nic się nie dzieje.
Gdy w miejsce (w kodzie) panel2.caption podam konkretny adres pliku, a w panel3.caption wpisze adres docelowy też nic się nie dzieje.
Pomocy :unsure:


Ten kod to jedynie deklaracja co, gdzie i jak. Brakuje jeszcze wywołania funkcji SHFileOperation.

Uzyj copyfile+deletefile ^_^

//edit
Uno mnie wyprzedzil :P
Użytkownik Kajetanek edytował ten post 09 listopad 2005, 10:22
Brakuje Ci:... SHFileOperation(Rekord);i pamiętaj o uses ... shellapi; :)


To ja może pokaże Wam cały kod:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState); var Rekord:TSHFileOpStructA; begin   if (Shift = [ssCtrl,ssShift]) and (key=integer(label1.caption[1]))   then {wywołanie klawisza skrótu globalnego}  with Rekord do  begin   Wnd:=Handle;   wFunc:=FO_MOVE;   pFrom:=PChar(panel2.Caption);   pTo:=PChar(panel3.Caption);   fFlags:=FOF_NOCONFIRMMKDIR;  end; end;

W uses jest ShellAPI
Użytkownik PhantomShark edytował ten post 09 listopad 2005, 10:29

(...)

Gdzie jest wywołanie funkcji o której ja i Cyrkiel piszemy ?? Bez tego choćbyś nie wiem co robił to nic się nie będzie działo ...


Gdzie jest wywołanie funkcji o której ja i Cyrkiel piszemy ?? Bez tego choćbyś nie wiem  co robił to nic się nie będzie działo ...


A to to SHFileOperation(Rekord); nie jest to samo co Rekord:TSHFileOpStructA;?


Ojojoj - podstawy się kłaniają ... Jedno to deklaracja zmiennej a drugie to funkcja.


<_<

To gdzie mam to wpisać?
SHFileOperation(Rekord);


Kurna - nie przeginasz aby czasem ??
(...)

OMG
po tym:
with Rekord do begin  Wnd:=Handle;  wFunc:=FO_MOVE;  pFrom:=PChar(panel2.Caption);  pTo:=PChar(panel3.Caption);  fFlags:=FOF_NOCONFIRMMKDIR; end;
wpisz:
SHFileOperation(Rekord);

Już wiem B)

  if SHFileOperation(Rekord)<>0 then   ShowMessage('Błąd')


(...)

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •