| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
File info [D6, WinXP]
SH © (2003-06-02 17:28:00)Вот задачка - надо выдрать инфу из файла о нём же. Посидел, побегал с бубном, ещё посидел - итог см. ниже. Сей код должен выдавать дату создания выбранного в диалоге файла и делает это, но почему-то только после второго клика по кнопке на форме. Как пофиксить?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
my:TWin32FileAttributeData;
my2:tsystemtime;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var cml:array[0..255]of char;
begin
strpcopy(cml,opendialog1.filename);
if opendialog1.execute then
begin
GetFileAttributesEx(cml,GetFileExInfoStandard,@my);
FileTimeToSystemTime(my.ftCreationTime,my2);
showmessage("Дата создания: "+inttostr(my2.wDay)+":"+inttostr(my2.wMonth)+":"+inttostr(my2.wYear));
end;
end;
end.
Кстати, если кто знает более оптимальный (на его взгляд) способ решения сей задачи, то плис-сс поделитесь.
clickmaker (2003-06-03 15:09:00) [1]Удалено модератором
SH (2003-06-03 14:10:00) [2]Удалено модератором
ladybird (2003-06-02 17:31:00) [3]>>файла и делает это, но почему-то только после второго клика >>по кнопке на форме. Как пофиксить?
if opendialog1.execute then
begin
strpcopy(cml,opendialog1.filename);
| |
