Registriert seit: 31. Jan 2008
Ort: im schönen Salzburger Land
460 Beiträge
Delphi XE4 Professional
|
Re: Netzwerkressource mit SHBrowseForFolder auswählen
2. Dez 2008, 19:16
Hallo Ares..
vielleicht hilft dir das ein wenig weiter...
http://www.madshi.net/
genauer gesagt: http://help.madshi.net/SpecialFolders.htm
Hab ich dich richtig verstanden.. du willst Netzlaufwerke - aber keine FTP Ordner?
Delphi-Quellcode:
function IsLogicalDrive(Drive: string): boolean;
var
sDrive: string;
cDrive: char;
begin
sDrive := ExtractFileDrive(Drive);
if sDrive = '' then
Result := False
else begin
cDrive := UpCase(sDrive[1]);
if cDrive in ['A'..'Z'] then
result := (GetLogicalDrives And
(1 Shl (Ord(cDrive) - Ord('A')))) <> 0
else
Result := False;
end;
end;
Erich Wanker - for life:=1971 to lebensende do begin ..
|