Einzelnen Beitrag anzeigen

Benutzerbild von erich.wanker
erich.wanker

Registriert seit: 31. Jan 2008
Ort: im schönen Salzburger Land
454 Beiträge
 
Delphi XE4 Professional
 
#2

Re: Netzwerkressource mit SHBrowseForFolder auswählen

  Alt 2. Dez 2008, 18: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 ..
  Mit Zitat antworten Zitat