Kopieverzeichnis
Wie Sie ein gesamtes Verzeichnis kopieren
Autor: ANDRE HEINO ARTUS
> Weiß jemand, wie ein gesamtes Verzeichnis kopieren???
Umsetzung
ShellAPI verwendet;
{$R *. DFM}
Prozedur TForm1.Button1Click(Sender: TObject);
var
FOS: TSHFileOpStruct;
beginnen
fange mit FOS
WND: = Self.Handle;
wFunc: = FO_COPY;
pFrom: = 'c:\idapi\*.*';
Zapfwelle: = 'c:\test';
fFlags: = FOF_NoConfirmMkDir;
Ende;
SHFileOperation(FOS);
Ende;
Andre H. Artus
[email protected]
Kopieverzeichnis
Kopieverzeichnis : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Wie Sie ein gesamtes Verzeichnis kopieren
Autor: ANDRE HEINO ARTUS
> Weiß jemand, wie ein gesamtes Verzeichnis kopieren???
Umsetzung
ShellAPI verwendet;
{$R *. DFM}
Prozedur TForm1.Button1Click(Sender: TObject);
var
FOS: TSHFileOpStruct;
beginnen
fange mit FOS
WND: = Self.Handle;
wFunc: = FO_COPY;
pFrom: = 'c:\idapi\*.*';
Zapfwelle: = 'c:\test';
fFlags: = FOF_NoConfirmMkDir;
Ende;
SHFileOperation(FOS);
Ende;
Andre H. Artus
[email protected]
Kopieverzeichnis
By Wiezutun
Kopieverzeichnis : Mehreren tausend Tipps, um Ihr Leben einfacher machen.