AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Datei in Benutzung

Ein Thema von SaFu · begonnen am 2. Sep 2008 · letzter Beitrag vom 3. Sep 2008
Antwort Antwort
Seite 4 von 4   « Erste     234
Fuchtel

Registriert seit: 9. Nov 2005
Ort: Bamberg
50 Beiträge
 
Delphi 2005 Personal
 
#31

Re: Datei in Benutzung

  Alt 3. Sep 2008, 07:16
Folgendes habe ich mal irgendwo gefunden und setze es Erfolgreich ein:

Delphi-Quellcode:
function IsFileUsed(const FileName:String): Boolean;
const
  AccessMode: array[0..2] of LongWord = (
    GENERIC_READ,
    GENERIC_WRITE,
    GENERIC_READ or GENERIC_WRITE);
  ShareMode: array[0..4] of LongWord = (
    0,
    0,
    FILE_SHARE_READ,
    FILE_SHARE_WRITE,
    FILE_SHARE_READ or FILE_SHARE_WRITE);
var
  Mode : LongWord;
  iRes : INTEGER;
begin
  Mode := fmOpenRead or fmShareDenyWrite;
  iRes := -1;
  if ((Mode and 3) <= fmOpenReadWrite) and
    (((Mode and $F0) shr 4) <= fmShareDenyNone) then
    iRes := Integer(CreateFile(PChar(FileName),
                      AccessMode[Mode and 3],
                      ShareMode[(Mode and $F0) shr 4],
                      nil,
                      OPEN_EXISTING,
                      FILE_ATTRIBUTE_NORMAL,
                      0));
    If iRes < 0 then
        Result := True
      else
        Result := False;
  If Not Result then CloseHandle(THandle(iRes));
end;
Am sichersten ist es, für ein und dasselbe Programm (be mehrmaligem Start), wenn man eine Datei mit ihren Attributen verriegelt

Gruß Fuchtel
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.245 Beiträge
 
Delphi 10.4 Sydney
 
#32

Re: Datei in Benutzung

  Alt 3. Sep 2008, 08:01
Es würde doch genügen, nach dem Versuch, die Datei zu öffnen, zu prüfen, ob das auch funktioniert hat, bevor man damit arbeitet.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#33

Re: Datei in Benutzung

  Alt 3. Sep 2008, 09:19
Hallo,

nach einer kurzem Session im Teamviewer haben wir das mit FreeAndNil auch rausgefunden. Trotzdem danke
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 01:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf