hi @ all
hab grad ein kleines problem....
bastel mir im moment ein kleines programm für installationen und updates von programmen...
gerade versuch ich für ein programm eine update routine zu machen, bis jetzt sieht das ganze
so aus:
Delphi-Quellcode:
procedure TMain_Form.bitbtn_Upd_ProgClick(Sender: TObject);
var
strExeFrom, strExeTo : TStream;
sFromDirError, sToDirError :
String;
FileOpStruct : TSHFileOpStruct;
iRC : Integer;
begin
// Copy DELGSRV201.exe
strExeFrom := TFileStream.Create('
J:\Update\Prog\Prog1.exe', fmOpenRead);
Try
strExeTo := TFileStream.Create('
C:\LOG\Daten_Laden\bin\Prog1.exe', fmCreate);
Try
strExeTo.CopyFrom(strExeFrom, strExeFrom.Size);
Finally
strExeTo.Free;
End;
Finally
strExeFrom.Free;
End;
//Copy Directory
sFromDirError := '
J:\Updates\Daten_Laden\Error';
sToDirError := '
C:\LOG\Daten_Laden\';
With FileOpStruct
Do
Begin
wFunc := FO_Copy;
pFrom := PChar(sFromDirError + #0);
pTo := PChar(sToDirError + #0);
End;
iRC := SHFileOperation(FileOpStruct);
end;
die .exe tu ich wie ihr seht via filestream kopieren... das klappt auch soweit ganz gut...
aber beim kopieren der ordner klappt irgendwas nicht, da bekomm ich immer denn fehler nr. 1026
kann mir vielleicht jemand sagen worand das liegt???