Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.033 Beiträge
 
Delphi 12 Athens
 
#5

Re: Von anderer Anwendung geöffnete Datei lesen

  Alt 27. Mai 2010, 18:39
Dieses ist ja auch ein spezieller Code für okis Programm
und die erwähnte Funktion gehört zu dessen Programm.

Der für dich interessante Teil ist das CreateFile + der Stream (oder was man sonst für den Zugriff auf dieses Handle verwenden will)

Delphi-Quellcode:
procedure LoadData(const FileName: String);
var Stream : THandleStream;
    FileHandle : THandle;
begin
  FileHandle := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE,
    0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if AFileHandle <> INVALID_HANDLE_VALUE then begin
    try
      Stream := THandleStream.Create(FileHandle);
      try

        // mach irgendwas mit dem "Stream"

      finally
        FreeAndNil(Stream);
      end;
    finally
      CloseHandle(FileHandle);
    end;
  end else
    ShowMessage(SysErrorMessage(GetLastError));
end;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat