Alextp

|
Posted: Mon Jul 27, 2009 22:55 Post subject: |
|
|
пробую: получается, все файлы все равно в одном уровне, только все пути из имен пропали.
Code: | procedure UrlCopy(p: PChar; const url: string; id, level: integer);
var s:string;
begin
if fMode then
lstrcpyn(p, PChar(url), MAX_PATH)
else
begin
s:=UrlStrip(url, id, level);
if level=2 then
sreplaceall(s,'/','\');
lstrcpy(p, PChar(s));
end;
end;
|
_________________ UniViewer - CudaText - LogViewer
|
|