Registriert seit: 14. Aug 2004
1.439 Beiträge
Delphi 2007 Professional
|
Re: Windows Session neu aufbauen
12. Jul 2005, 12:03
Kann den Fehler jetzt rekonstruieren :
*) Keine Verbindung zum Server
*) Baue eine Verbindung mit User1 auf (Laufwerk R: -> \\SERVER\USER_1)
*) Eins meiner Programme öffnet eine Datei am Server lockDir := CreateFile(PChar(ServerPfad+'temp.lck')
, GENERIC_READ
, FILE_SHARE_READ or FILE_SHARE_DELETE or FILE_SHARE_WRITE
, nil
, OPEN_EXISTING
, 0//FILE_FLAG_BACKUP_SEMANTICS {Or FILE_FLAG_OVERLAPPED}
, 0
);
*) Enum zeigt nur R: an
*) Am Server sehe ich eine Sitzung und die Datei geöffnet
*) Verbindung von R: wird disconnected
*) Das Programm schließt die Datei
if not CloseHandle(lockDir) then
RaiseLastWin32Error;
*) Die Datei bleibt am Server nach wie vor geöffnet (genau so wie die Sitzung)
Wenn ich die Datei schließe und das Disconnect erst anschließend mache, dann passt alles, Datei geschlossen, Sitzung geschlossen und kann anschließend mit einem anderem Username anmelden.
Gruss Hans
2B or not 2B, that is FF
|