Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Datei exklusiv öffnen

    Delphi
    by Avax2k, 20. Jan 2006
  ja abwürgen wird man mein Programm immer können, dies zu verhindern ist schier unmöglich..wenn man jetzt nicht gerade den Benutzer vollkommen aus Windows sperren will.
  
  bleibt mir dann wohl nichts anderes übrig als die Datei die ganze Zeit im Programm laufen lassen.
  
  Danke euch trotzdem für die rege Anteilnahme
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Datei exklusiv öffnen

    Delphi
    by Avax2k, 20. Jan 2006
  das wäre auch eine Möglichkeit nur einziges Problem dabei ist eben die Umsetzung, sprich um das zu realisieren müsste ich etwas größeres Schreiben.. dabei habe ich schon sowieso sehr viel um die Ohren. Wenn nun niemand einen Lösungsweg hat werde ich dies wohl dann auch tun müssen..mal abwarten :D
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Datei exklusiv öffnen

    Delphi
    by Avax2k, 20. Jan 2006
  1. Die Datei ist ca. 2MB
  2. Datentyp ist Text
  3. Wird beim Ausführen des Programmes erstellt indem sie umgewandelt wird und auf Platte geschrieben wird
  4. Ja will einfach nur nicht, dass man sie kopieren kann..
  5. Beim Programmende wird sie gelöscht
  
  6. Der Grund ist wie gesagt, dass ich es verhindern möchte dass jemand die textdatei kopiert und ohne mein Programm benutzen kann.
  Wenn ich...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Datei exklusiv öffnen

    Delphi
    by Avax2k, 19. Jan 2006
  könnte ich es auch lösen indem ich einfach die Befehle von Windows abfange, bevor diese ausgeführt werden ? sprich jemand klickt auf kopieren und dann bei einfügen fängt das programm den Befehl ab und sagt nein..dabei würde es reichen das spezifisch auf den Dateinamen zu machen ...
  
  
  genial wäre es, wenn ich in Windows komplett den "Kopieren"- Modus abschalten könnte solange mein Programm...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Datei exklusiv öffnen

    Delphi
    by Avax2k, 19. Jan 2006
  im Grundegenommen ist das schon richtig nur kann ich sie nicht sperren, weil sie ja dann von meinem Programm benutzt wird..
  
  somit gilt leider..Sperrung möglich wenn mein Programm an der Datei nichts macht..wenn ich diese Öffnen will muss die solange ohne zugriffsicherung bleiben, bis ich sie nicht mehr brauche..und das bringt mir ergo nichts .
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Datei exklusiv öffnen

    Delphi
    by Avax2k, 19. Jan 2006
  das geht auch nicht..ist auch logisch, denn egal was als Ergebnis ist, sobald das Programm versucht die Datei zu starten ist der Prozess auf Öffnen und zeitgleich wird der Zugriff gesperrt..ist wohl wie dein Vorredner sagte..unmöglich umzusetzen :(
  
  
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  freeandnil(fs);
  ShellExecute(Application.Handle, 'OPEN',...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Datei exklusiv öffnen

    Delphi
    by Avax2k, 19. Jan 2006
  das habe ich befürchtet...kann ich denn überhaupt die Datei sperren, wenn sie von einem bestimmten Programm geöffnet wird..sie zum Beispiel wordpad..solange eben wordpad auf die Datei zugreift kann man nicht separat zugreifen.
  Das würde mir auch sehr weiterhelfen.
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Datei exklusiv öffnen

    Delphi
    by Avax2k, 19. Jan 2006
  da kommt eben die meldung, dass die datei durch einen anderen prozess genutzt wird und nicht geöffnet werden kann
  
  
  wenn ich
  
  fs.create()
  
  weglasse geht es das ist aber klar
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Datei exklusiv öffnen

    Delphi
    by Avax2k, 19. Jan 2006
  klappt leider auch nicht
  
  FreeAndNil(fs);
  ShellExecute(0, 'OPEN', PChar(FILE_NAME),nil,nil,0);
  fs:=TFileStream.Create(FILE_NAME, fmOpenRead);
  
  
  geht leider auch nicht :(
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Datei exklusiv öffnen

    Delphi
    by Avax2k, 19. Jan 2006
  ja nur wenn ich eben die Datei als Stream habe dann kann ich sie nicht öffnen und wenn ich free mache dann kann ich sie öffnen nur ist sie nicht mehr geschützt.
  
  OnCreate mache ich sie geschützt..aber kann mit ihr dann gar nichts anfangen würde sie gern mit shellexcute ausführen..aber geht ja nicht..und bei free geht es klar aber dann ist sie nicht mehr geschützt die Datei :(
  
  will somit eine...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Datei exklusiv öffnen

    Delphi
    by Avax2k, 19. Jan 2006
  ich möchte, dass solange mein Programm läuft und eine Datei benutzt diese eben gesperrt ist, wenn mein Programm beendet wird soll der Zugriff aufgehoben werden.
  Somit wäre es, wie du sagst die Variante mit ReOpenFile()
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Datei exklusiv öffnen

    Delphi
    by Avax2k, 19. Jan 2006
  okay das habe ich gemeint, wenn ich den Stream wieder freigebe dann kann man wieder beliebig auf die Datei zugreifen..das ist aber gar nicht gut :(.
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Datei exklusiv öffnen

    Delphi
    by Avax2k, 19. Jan 2006
  Hi hab folgenden Code
  
  
  const FILE_NAME = 'C:\Test.txt';
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  TFileStream.Create(File_Name, fmshareexclusive);
  Shellexecute(0,'OPEN',Pchar(File_Name),nil,0,0);
  end;