Hallo Zusammen,
Ich hab mal wieder ein Problem bei dem jegliche logik versagt xD
Zum Ablauf ich will ein Netzwerklaufwerk mappen und überbege Laufwerksbuchstabe,Pfad,User,PW
Der fehler tritt auf sobald ich den Pfad nichtmehr im Quellcode angebe sondern ihn aus einer Listbox auslese,
sobald ich aber den Selben String laut debugger übergebe klappt es nichtmehr ich hoffe ihr könnt mir helfen.
hier die Procedure
Delphi-Quellcode:
function NetzlaufwerkVerbinden(Laufwerk: string; Pfad: string;
Username: string; Password: string; RestoreAtLogon: Boolean): DWORD;
var
NetResource: TNetResource;
dwFlags: DWORD;
begin
with NetResource do
begin
dwType := RESOURCETYPE_DISK;
lpLocalName := PChar(Laufwerk);
lpRemoteName := PChar(Pfad);
lpProvider := nil;
dwdisplaytype := RESOURCEDISPLAYTYPE_DOMAIN;
dwusage := RESOURCEUSAGE_CONNECTABLE;
end;
if (RestoreAtLogon) then
dwFlags := CONNECT_UPDATE_PROFILE
else
dwFlags := 0;
Result := WNetAddConnection2(NetResource, PChar(Password),
PChar(Username), dwFlags);
end;
und hier Das Quellcode Stück
Delphi-Quellcode:
for y := 0 to listbox2.Items.count - 1 do
begin
if (NetzlaufwerkVerbinden(listbox1.items[y],{'\\10.15.121.9\adminchat$}listbox2.Items[y];,
// Die Statische eingabe mit der es Funktioniert ist auskommentiert, und in der Listbox ist laut Debugger der Richtige Pfad
(combobox1.Items[combobox1.ItemIndex]+'\'+form1.edit1.text), form1.edit2.text, False) = 0) then
begin
//....
Schonmal vielen Dank
Gruß Manu