Ich versuche gerade obige Funktion zu benutzen, aber irgendwie will es nicht klappen:
Delphi-Quellcode:
function NetErrorMessage(Error: DWORD): String;
var
buffer: array [0..1024] of Char;
err: DWORD;
begin
err := Error;
WNetGetLastError(err, buffer, sizeof(buffer), nil, 0);
result := String(buffer);
end;
Der Buffer ist immer leer, obwohl eigentlich was drinne stehen sollte. Der Fehlercode ist 1219 und net -helpmsg 1219 gibt folgenden Text aus:
Zitat:
Mehrfache Verbindungen zu einem Server oder einer freigegebenen Ressource von de
mselben Benutzer unter Verwendung mehrerer Benutzernamen sind nicht zulässig. Tr
ennen Sie alle früheren Verbindungen zu dem Server bzw. der freigegebenen Ressou
rce, und versuchen Sie es erneut.
Das habe ich eigentlich auch im Buffer erwartet. Vorausgegangen ist ein ein Aufruf von WNetAddConnection2 welcher unteranderem das zurückgeben kann:
Zitat:
ERROR_EXTENDED_ERROR A network-specific error occurred. Call the WNetGetLastError function to obtain a description of the error.
Allerdings bekomme ich von WNetAddConnection2 1219 zurück während ERROR_EXTENDED_ERROR 1208 ist. Bei 1219 liefert SysErrorMessage allerdings einen Leerstring zurück.
So sieht das in der Übersicht aus:
Delphi-Quellcode:
dummy := ConnectToNetworkDrive('
', ComputerTemp + '
\IPC$', User, PW, False);
if dummy <> 0
then
begin
if dummy = ERROR_EXTENDED_ERROR
then
Messagebox(hDlg, PChar(NetErrorMessage(dummy)), PChar(rsNoSelectionCaption), MB_ICONERROR)
else
MessageBox(hDlg, PChar(SysErrorMessage(dummy)), PChar(rsNoSelectionCaption), MB_ICONERROR);
Aber leider ist die Messagebox immer leer.
