Witam
Mam cos takiego :
function Pliki(jaki:string): string;
var
TF : File of Byte;
S : String;
begin
if FileGetAttr(jaki)<>0 then FileSetAttr(jaki,0);
AssignFile(TF, jaki);
Reset(TF);
try
while not Eof(TF) do
begin
SetLength(S,FileSize(TF));
BlockRead(TF,S[1],FileSize(TF));
memo1.Lines.Add:=s;
// tu cos sie robi z tym plikiem
end;
finally
CloseFile(TF);
end;
end;
Problem polega na tym iz nie moge otworac plikow ktore sa tylko do odczytu i nie moge zminic ich atrybutow np pliki otwierane poprzez siec lokalna !!! Co z tym fantem zrobic ????
--Pozdrowienia