Fil hjælp

1.marker, tryk delete
2.marker, tryk f2
3.højreklik, kopier - derefter sæt ind i destinationsmappen
4. samme, bare klip istedet for kopier
5.højreklik, egenskaber, vinge i skrivebeskyttet
6, det samme - bare skjult i stedet
7. højreklik på filen du vil ha en genvej til - vælg opret genvej.

1 2 og 3 : kig under egenskaber - dvs. højreklik > egenskaber

..og nu ser jeg kategorien - jeg går iseng...... ;)  sorry

her er noget af det:

//1
DeleteFile('file');
//2
RenameFile('oldname', 'new');
//3
CopyFile(pchar('existing'), pchar('new path'), false);
//4
MoveFile(pchar('oldname'), pchar('new path'));


//dato
//1
function GetFileCreationTime(sFileName : string ) : TDateTime;
var
  ffd : TWin32FindData;
  dft : DWord;
  lft : TFileTime;
  h  : THandle;
begin
  h := Windows.FindFirstFile(PChar(sFileName), ffd);
  if (INVALID_HANDLE_VALUE <> h) then
  begin
    Windows.FindClose( h );
    FileTimeToLocalFileTime(ffd.ftCreationTime, lft );
    FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo);
    Result := FileDateToDateTime(dft);
  end;
end;

//2
function GetFileLastAccessTime(sFileName : string ) : TDateTime;
var
  ffd : TWin32FindData;
  dft : DWord;
  lft : TFileTime;
  h  : THandle;
begin
  h := Windows.FindFirstFile(PChar(sFileName), ffd);
  if (INVALID_HANDLE_VALUE <> h) then
  begin
    Windows.FindClose( h );
    FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft );
    FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo);
    Result := FileDateToDateTime(dft);
  end;
end;

//3
function GetFileLastAccessTime(sFileName : string ) : TDateTime;
var
  ffd : TWin32FindData;
  dft : DWord;
  lft : TFileTime;
  h  : THandle;
begin
  h := Windows.FindFirstFile(PChar(sFileName), ffd);
  if (INVALID_HANDLE_VALUE <> h) then
  begin
    Windows.FindClose( h );
    FileTimeToLocalFileTime(ffd.ftLastWriteTime, lft );
    FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo);
    Result := FileDateToDateTime(dft);
  end;
end;

skal i seng men her er lidt at arbejde på....zzzzzzzzzzzz godnat......


GENVEJ:

Procedure PlaceLinkOnDeskTop(FileName : TFileName);
  Function GetDesktopFolder : String;
  Const
    Key = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\';
  begin
    Result := '';
    With TRegistry.Create do
    try
      RootKey := HKEY_CURRENT_USER;
      if OpenKey(key, FALSE) then
        Result := ReadString('Desktop');
    finally
      Free;
    end;
  end;

var
  SL: IShellLink;
  PF: IPersistFile;
  LnkName: WideString;
begin
  if not FileExists(FileName) then
    exit;
  OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IShellLink, SL)); {

IShellLink implementers are required to implement IPersistFile }
  PF := SL as IPersistFile;
  OleCheck(SL.SetPath(PChar(FileName)));  // set link path to proper file
  SL.SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
  LnkName := GetDesktopFolder + #92 + ChangeFileExt(ExtractFileName(FileName), '.lnk');
  PF.Save(PWideChar(LnkName), True);      // save link file
end;


procedure TVinForm.Genvejtilskrivebord1Click(Sender: TObject);
begin
PlaceLinkOnDeskTop(Application.exeName);
end;




KOPIER FIL TIL ANDEN DESTINATION:

var
FOS :TSHFileOpStruct;
begin
with FOS do                //kopier databasen til biblioteket backup
begin
Wnd  := 0;
wFunc := FO_COPY;
pFrom := 'c:\filelist *'#0;  //kopier alle filer som hedder filelist 
pTo  := 'c:\xxxxxxxx '#0;  //definitation af bibliotek filen skal placeres
fFlags:= FOF_NOCONFIRMATION;
end;



SLETTE EN FIL:

deletefile('c:\temp\test.txt');

' 5 (6)
FileSetAttr('C:\windows\telnet.exe',faHidden);

søg på fahidden i hjælpen, for at få de andre værdier