Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.04;
Скачать: CL | DM;

Вниз

File info   Найти похожие ветки 

 
SH ©   (2003-06-02 17:28) [0]

Вот задачка - надо выдрать инфу из файла о нём же. Посидел, побегал с бубном, ещё посидел - итог см. ниже. Сей код должен выдавать дату создания выбранного в диалоге файла и делает это, но почему-то только после второго клика по кнопке на форме. Как пофиксить?

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.

Кстати, если кто знает более оптимальный (на его взгляд) способ решения сей задачи, то плис-сс поделитесь.


 
ladybird   (2003-06-02 17:31) [1]

>>файла и делает это, но почему-то только после второго клика >>по кнопке на форме. Как пофиксить?

if opendialog1.execute then
begin
strpcopy(cml,opendialog1.filename);


 
SH ©   (2003-06-03 14:10) [2]

Удалено модератором


 
clickmaker ©   (2003-06-03 15:09) [3]

Удалено модератором



Страницы: 1 вся ветка

Текущий архив: 2003.08.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-10242
-=[SDA]=-
2003-07-21 12:25
2003.08.04
Как узнать какой именно компонент сгенерировал событие!?


14-10433
Soft
2003-07-17 15:25
2003.08.04
Господа, а вы все, оказывается преступники.


3-10096
seregin
2003-07-14 10:48
2003.08.04
ошибка в IB-базе


14-10425
Igor__
2003-07-17 17:10
2003.08.04
Как выбрать сканер и монитор????


1-10231
LKJJed3
2003-07-21 10:50
2003.08.04
Как перевести из String в Extended?