Вывести версию файла в Label

[artemavd]

Добрый вечер! Пытаюсь считать информацию с файла. Использую модуль VersionInfo (выкладываю). Не получается вывести версию файла в Label. Пробую делать так (путь к файлу отображается StatusBar2.Panels[1].Text):

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 GetFileVersion(Form1.StatusBar2.Panels[1].Text);
 Form1.Label3.Caption:=GetFileVersion(Form1.StatusBar2.Panels[1].Text);
end;

Ругается, что [Error] Unit1.pas(147): Incompatible types: 'String' and 'Cardinal'. В чем проблема? Как вывести правильно?

[Пепел Феникса]

IntTostr?123456789

[zmey31313]

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  v:integer;
begin
 v:=GetFileVersion(Form1.StatusBar2.Panels[1].Text);
 Form1.Label3.Caption:=IntToStr(v);
end;

[Пепел Феникса]

а зачем лишние переменки?

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 Form1.Label3.Caption:=IntToStr(GetFileVersion(Form1.StatusBar2.Panels[1].Text));
end;

[artemavd]

Выводится всегда число: 4294967295. Какую бы папку/файл не выбрал это число не меняется. Что это за число вообще такое?

[Пепел Феникса]

вы уверены что функция та что вам нужна?

может вам чтото наподобие этой?
http://msdn.microsoft.com/en-us/libr...03(VS.85).aspx

[Noor]

Дело в том, что при обращении к GetFileVersion запрос ведет не в VersionInfo.pas ,а в SysUtils (нажмите Ctrl и клацните по GetFileVersion и вы увидите что вас перекинет в SysUtils)

Советую воспользоваться компонентами из набора Utilmind DiskControls Pack, а именно компонентом dcVersionInfo
Пример
http://img6.immage.de/1001c136e901.jpg

[artemavd]

Там регистрировать нужно. Мне нужно, чтобы я мог получить ту информацию, которая во вложении). Вот что мне нужно получать и выводить в Lable, например.

[Noor]

Utilmind DiskControls Pack,ссылку на который я дал, работает без всякой регистрации. Я пользуюсь им уже 2 года.

Я думаю вам проще исплользовать несколько функция да и все.
Вычисление размера каталога

uses FileCtrl;

function DirSize(Dir: string): integer;
var
  SearchRec: TSearchRec;
  Separator: string;
  DirBytes: integer;
begin
  Result:=-1;
  if Copy(Dir,Length(Dir),1)='\' then
    Separator := ''
  else
    Separator := '\';
  if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 then
  begin
    if FileExists(Dir+Separator+SearchRec.name) then
      DirBytes := DirBytes + SearchRec.Size
    else
    if DirectoryExists(Dir+Separator+SearchRec.name) then
    begin
      if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
        DirSize(Dir+Separator+SearchRec.name);
    end;
    while FindNext(SearchRec) = 0 do
    begin
      if FileExists(Dir+Separator+SearchRec.name) then
        DirBytes := DirBytes + SearchRec.Size
      else
      if DirectoryExists(Dir+Separator+SearchRec.name) then
      begin
        if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
          DirSize(Dir+Separator+SearchRec.name);
      end;
    end;
  end;
  FindClose(SearchRec);
  Result:=DirBytes;
end;

//Пример использования
procedure TForm1.Button1Click(Sender: TObject);
var
  DirBytes: integer;
begin
  DirBytes := DirSize('c:\windows');
  Form1.Label1.Caption := IntToStr(DirBytes);
end;

Получение даты создания каталога

function GetDirTime(const Dir: string): TDateTime;
var
  H: Integer;
  F: TFileTime;
  S: TSystemTime;
begin
  H := CreateFile(PChar(Dir), $0080, 0, nil, OPEN_EXISTING,
    FILE_FLAG_BACKUP_SEMANTICS, 0);
  if H <> -1 then
  begin
    GetFileTime(H, @F, nil, nil);
    FileTimeToLocalFileTime(F, F);
    FileTimeToSystemTime(F, S);
    Result := SystemTimeToDateTime(S);
    CloseHandle(H);
  end
  else
    Result := -1;
end;

//Пример использования: 
ShowMessage(DateTimeToStr(GetDirTime('c:\Program Files')));

Узнать кол-во файлов в папке

function GetFileCount(Dir: string): integer;
var
  fs: TSearchRec;
begin
  Result := 0;
  if FindFirst(Dir + '\*.*', faAnyFile - faDirectory - faVolumeID, fs) = 0
    then
    repeat
      inc(Result);
    until
      FindNext(fs) <> 0;
  FindClose(fs);
end;

[mihali4]

Вы дали ссылку на страницу LivePage, там требуют для скачивания зарегистрироваться в этой поганой соц.сети. Вот о какой регистрации идет речь.
Если у вас есть этот набор - выложите его на форуме.