hallo S2B,
hab mich total falsch ausgedrückt,was ich will ist das.
ich möchte das der server auf dem anderen rechner das laufwerk c:\
in einen string speichert und den string dann den client schickt und der client soll diesen in einen treeview oder memo anzeigen.
hab da so eine funktion für das auslesen des verzeichniss aber die funzt nicht.
Code:
function GetFolders( path : string ) : string;
var
searchRec : TSearchRec;
begin
result := '';
if ( FindFirst( path, $00000010, searchRec ) = 0 ) then begin
while FindNext( searchRec ) = 0 do begin
if ( ( searchRec.Attr and $00000010 ) = searchRec.Attr ) then
result := result + searchRec.Name + '|';
end;
FindClose( searchRec );
end;
Delete( result, length( result ), 1 );
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.add(GetFolders('C:\Windows'));
end;
mfg vader