mam taki skrypcik skopiowany z artykułu tylko ścieżki zmienione:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
procedure TForm1.Button1Click(Sender: TObject);
var
R : TSHFileOpStruct;
begin
with R do
begin
Wnd:=Handle; // oznaczenie uchwytu
lpszProgressTitle := 'Skopiuj plik....';// tutuł okienka
wFunc:=FO_COPY;// opcja
pFrom:='C:\Documents and Settings\User Name\Pulpit\p\errata.txt'; // z pliku
pTo:='C:\Documents and Settings\User Name\Pulpit\DEFRAG\errataa.txt';// do pliku
fFlags:=FOF_NOCONFIRMMKDIR;
end;
SHFileOperation(R);
end;
end.
i czemu mi wyskakuje błąd? No jestem początkujący i dopiero sie ucze więc to jest pewnie jakas pierdoła. Ale sam sobie z tym nie poradze..