Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > de.comp.lang.delphi.misc > #19146

Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren.

Show all headers | View raw

Am 14/12/2021 um 18:31 schrieb Alfred Gemsa:
> Am 14.12.2021 um 17:39 schrieb Franz Glaser:
>> Ich hoffe, dass ich hier bei den Profis niemand verärgere.
>>
>> Bis jetzt kann ich mit meinem neugeschriebenen Programm einen gewählten
>> Unterverzeichnisbaum in eine ListBox einlesen.
>>
>> Dann kann ich filenamen mit einem Mausklick auf eine Zeile die
>> filenamen des gewählten Unterverzeichnisses in die zweite Listbox
>> einlesen.
>>  [...]
>>
>> Bitte um Hilfe. Franz Glaser.
>
> Zum Auslesen der Zeiten: Das lief bei mir unter Windows mit Delphi 7:
>
>
>
> uses FileCtrl, DateUtils; // auf Verdacht
>
> var CreationTime, LastWriteTime, LastAccessTime: string;
>
> function TForm1.FT2DT(FileTime: TFileTime): TDateTime;
> var
>    LocalFileTime: TFileTime;
>    SystemTime: TSystemTime;
> begin
>    FileTimeToLocalFileTime(FileTime, LocalFileTime) ;
>    FileTimeToSystemTime(LocalFileTime, SystemTime) ;
>    Result := SystemTimeToDateTime(SystemTime) ;
> end;
>
> //+++ Hier geht's los: wähle File in FileListbox (FLB) +++
>
> procedure TForm1.FLBClick(Sender: TObject);
> var
>   FA: WIN32_FILE_ATTRIBUTE_DATA;
> begin
>   if GetFileAttributesEx(pChar(FLB.FileName),GetFileExInfoStandard,@FA)
> then begin
>     CreationTime := DateTimeToStr(FT2DT(FA.ftCreationTime));
>     LastWriteTime := DateTimeToStr(FT2DT(FA.ftLastWriteTime));
>     LastAccessTime := DateTimeToStr(FT2DT(FA.ftLastAccessTime));
>     Caption := 'CT: '+CreationTime+'  LWT: '+LastWriteTime+'  LAT:
> '+LastAccessTime;;
>   end;
> // else: error
> end;
>
>
> HTH
> Alfred
>

Schnelles Danke erst an die bisherigen Antworter, ich werde das
ausprobieren.

GL

Back to de.comp.lang.delphi.misc | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Franz Glaser <franz@meg-glaser.com> - 2021-12-14 17:39 +0100
  Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Alfred Gemsa <gemsa@gmx.de> - 2021-12-14 18:31 +0100
    Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Alfred Gemsa <gemsa@gmx.de> - 2021-12-14 18:33 +0100
    Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Franz Glaser <franz@meg-glaser.com> - 2021-12-15 12:17 +0100
  Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Heiko Rost <heiko.rost@gmx.de> - 2021-12-14 19:39 +0100
  Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Sieghard Schicktanz <Sieghard.Schicktanz@SchS.de> - 2021-12-14 19:43 +0100
    Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Franz Glaser <franz@meg-glaser.com> - 2021-12-15 14:47 +0100
      Das hat geklappt! Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Franz Glaser <franz@meg-glaser.com> - 2021-12-18 17:33 +0100
        Re: Das hat geklappt! Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Alfred Gemsa <gemsa@gmx.de> - 2021-12-18 18:29 +0100
        Re: Das hat geklappt! Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Heiko Rost <heiko.rost@gmx.de> - 2021-12-18 18:38 +0100
          Re: Das hat geklappt! Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Franz Glaser <franz@meg-glaser.com> - 2021-12-18 20:25 +0100
        Re: Das hat geklappt! Re: Laienproblem mit Lazarus, Dateiiste zum "qualifizierten" kopieren. Sieghard Schicktanz <Sieghard.Schicktanz@SchS.de> - 2021-12-18 19:43 +0100

csiph-web