Thema: Delphi remote shutdown

Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#11

Re: remote shutdown

  Alt 27. Nov 2004, 20:52
[quote="Assarbad"]
Code:
net use \\Rechner\IPC$ passwort /user:Domain\Benutzer
Man kann auch diese Funktion benutzen, dann erspart man sich den externen Aufruf von net:
Delphi-Quellcode:
function ConnectToNetworkDrive(Drive: string;
  Path: string; Username: string; Password: string;
  RestoreAtLogon: boolean ): DWORD;
var
  NetResource: TNetResource;
  dwFlags: DWORD;
begin
  dwFlags := 0;
  ZeroMemory(@NetResource, sizeof(TNetResource));
  with NetResource do begin
    dwType := RESOURCETYPE_DISK;
    lpLocalName := PChar(Drive);
    lpRemoteName := PChar(Path);
    lpProvider := nil;
  end;

  if (RestoreAtLogon) then
    dwFlags := dwFlags or CONNECT_UPDATE_PROFILE;

  Result := WNetAddConnection2(NetResource,PChar(Password), PChar(Username),dwFlags);
end;
Zitat:
Vielleicht schreibe ich ja nochmal eine neue Version von RShutdown aber dann in C
Abtrünniger.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat