Just nu i M3-nätverket
Jump to content

Kopiera och radera filer?


Jim1

Recommended Posts

Hej igen

 

Jag har gått och funderat på om man kan skapa ett program som kopierar externa filer eller kanske flyttar dem eller raderar dem. Har kollat i Delphi-hjälpen angående detta och i Win32 Api. Men i min Win-Api står det inte så mycket. Microsoft vill att man ska kontakta dem om man vill programmera med win-api. Hur som helst vet någon om det finns ett kommando som raderar, kopierar, flyttar externa filer? Ungefär som en utforskare.

 

Tack på förhand.

 

Jimmy

Link to comment
Share on other sites

Titta på dessa funktioner.

CopyFile (win-Api)

MoveFile (win-Api)

DeleteFile

 

eller..

 

Du kan även göra detta med Shellapi.

Prova att testa lite med denna kod.

 

uses shellapi;

 

procedure shelloperate (a:integer;b,c:tstrings);

{ a can be fo_move, fo_delete, fo_copy or fo_rename

b are the source-filenames

c are the destination-filenames}

var

shfileopstruct : tshfileopstruct;

fname,dest : string;

ct : integer;

begin

// let us create the source-filename

// all filenames in one string, divided by a #0 and on the end another #0, too

fname := '';

if b.count > 0 then

for ct := 0 to pred(b.count) do

fname := fname+b[ct]+#0;

fname := fname+#0;

 

// get the destination filenasme

dest := getcurrentdir; // default

if a= fo_rename then

dest:=inputbox ('rename file','enter new filename',fname);

 

fillchar(shfileopstruct,sizeof(tshfileopstruct),0);

with shfileopstruct do begin

wnd := form1.handle; // set this to the calling window's handle

wfunc := a; // here set the desired shell-function

pfrom := pchar(fname); // these are the source-filenames

pto := pchar(dest); // destination

//fflags // these are flags for the shelloperation (look to the help)

//fanyoperationsaborted // is true if user cancelled the operation

//hnamemappings // filemapping-pointer

//lpszprogresstitle // if no dialog-boxes (fflags) then show this string (?)

end;

 

// and now do the operation

shfileoperation(shfileopstruct);

end;

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...