Hallo,
ich habe eine kleine Consolenanwendung geschrieben.
Die Anwendung verbindet ein Netzlaufwerk auf einen freien Laufwerksbuchstaben
und startet von dort ein Programm, ist das Programm beendet wird das Netzlaufwerk
wieder getrennt.
Werden nun dem Programm Parameter übergeben, die nicht korrekt sind soll
eine Fehlermeldung ausgegben werden.
Die Fehlermeldung wird auch ausgegeben allerdings auch als Fenster
ich möchte die Meldung aber nur in der Console (DOS-Box) haben.
So wie hier dargestellt:
Zitat:
netinstall -s \\1234 -u test -p test2 -e setup.exe
Exception EOSError in module netInstall.exe at 0000A5AA.
System Error. Code: 67.
Der Netzwerkname wurde nicht gefunden.
Hiermit verbinde ich das Netzlaufwerk:
Delphi-Quellcode:
function ConnectNetworkDrive(const ADrive: String;
const ADirectory, AUsername, APassword: String;
const ARestoreAtLogon: Boolean ): Boolean;
var
NetResource: TNetResource;
dwFlags: DWORD;
lPwd, lUser: PChar;
begin
NetResource.dwType:=RESOURCETYPE_DISK;
NetResource.lpLocalName:=PChar(ADrive);
NetResource.lpRemoteName:=PChar(ADirectory);
NetResource.lpProvider:=nil;
if ARestoreAtLogon then
dwFlags:=CONNECT_UPDATE_PROFILE
else
dwFlags:=0;
if AUsername<>'' then
lUser:=PChar(AUsername)
else
lUser:=nil;
if APassword<>'' then
lPwd:=PChar(APassword)
else
lPwd:=nil;
Result:=WNetAddConnection2(NetResource,
lPwd,
lUser,
dwFlags)=NO_ERROR;
end;
Kann man WNetAddConnection2 dazu bringen, die Fehlermeldungen
nur auf die Console auszugeben? Habe dazu bisher nichts gefunden.
Vielleicht hat ja jemand einen Rat.
Grüße
Klaus