Kopire fil hvis der ikke trykkes på tastaturet

Prøv at skrive en smugle kode ...

procedure TForm1.Timer1Timer(Sender: TObject);

//kopire fil
CopyFile(PChar('C:\fil.txt),PChar(Fil.txt),true);

det er alt hvad jeg har. Filen som skal kopires, er IKKE lavet i det samme program.

nu ved jeg ikke hvor stor den fil er. Men du kunne måske loade den ind i memorystream og så gemme den hvor du har lyst derfra.

fx

var
ms:tmemorystream;
begin
ms:=tmemorystream.create;
try
ms.loadfromfile('C:\fil.txt');
ms.savetofile('C:\kopi.txt');
finally
ms.free;
end;
end;

Kan du fra kommandopromptet kopiere filen med copy ?? og hvad med delete?

Filen kan af det andet program være åbnet i en mode så du ikke får adgang til den eller en eller flere regioner kan være blokeret for adgang. Hvis copy kan læse filen skal dit program åbne filen i en "delt adgangs" mode for at du kan få lov.

Følgende er kopieret fra Hjælpen i D3:

SysUtils

Category

File Management Routines
FileOpen opens a specified file using the specified access mode.

function FileOpen(const FileName: string; Mode: Integer): Integer;

Description

The access mode value is constructed by OR-ing one of the fmOpen constants with one of the fmShare constants defined by the File open mode constants. If the return value is positive, the function was successful and the value is the file handle of the opened file. A return value of -1 indicates that an error occurred.

Example

procedure OpenForShare(const FileName: String);

var
  FileHandle : Integer;
begin
  FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
  if FileHandle > 0 then
    [valid file handle}
  else
    [Open error: FileHandle = negative DOS error code]
end;

Note

Use of the non-native Pascal file variable handlers such as FileOpen is discouraged. These routines map to the Windows API functions and return file handles, not normal Pascal file variables. These are low-level file access routines. For normal file operations use the normal AssignFile, Rewrite, Reset operations instead of FileOpen.

i SysUtils er følgende muligheder anført:

{ File open modes }

  fmOpenRead      = $0000;
  fmOpenWrite      = $0001;
  fmOpenReadWrite  = $0002;
  fmShareCompat    = $0000;
  fmShareExclusive = $0010;
  fmShareDenyWrite = $0020;
  fmShareDenyRead  = $0030;
  fmShareDenyNone  = $0040;

Når du har åbnet filen "passende" kan du nok blockreade fra den og så skrive til din egen fil med blockwrite

Er det ikke noget med at hægte en procedure på Application.OnIdle, bruge en TFileStream (istedet a_nor's forslag) og så fyre en FlushBuffer af første gang OnIdle blev kaldt efter et tastetryk?

OnKeyPressed:
  fFileStream.Add(@Key,sizeof(char));
  fKeyPressed := true;

OnIdle:
  if fKeyPressed then
  begin
    fFileStream.FlushBuffer;
    fKeyPressed := false;
  end;

... Eller endnu bedre at køre det gennem en tråd så det er helt transparent.

Hvad skal du i øvrigt med en keyLogger?

hrc: Jeg havde nu fornemmelsen af at gemningen i første omgang skete fra et andet program. Hvis ikke dette er tilfældet er mit indlæg selvfølgelig ikke relevant. Så skal filen vel bare closes inden kopiering ?

hmm, jeg synes hrc's mulighed virker som den enkleste, og den virker, så hvis du smider et svar får du dine point