właściwości pliku

Jak wyświetlić programowo okno właściwości pliku?

&

Jak usunąć z pliku tekstowego ostatnią linijkę?

z góry dzięki za pomoc ;)

Do kasowanie ostatniej linijki pliku tekstowego mozesz użyc np takiego kodu

memo1.lines.LoadFromFile('f:\plik.txt');
memo1.Lines.Delete(memo1.Lines.count-1);
memo1.lines.SaveToFile('f:\plik.txt');

// hmm VCL ? [glowa] - detox

Okienko z właściwościami pliku:

function ShowFilePropertiesDialog(hOwner: HWND; const FileName: string): Boolean;
var
  sei: TShellExecuteInfo;
begin
  with sei do
  begin
    cbSize := SizeOf(sei);
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI;
    wnd := hOwner;
    lpVerb := 'properties';
    lpFile := PChar(FileName);
    lpParameters := nil;
    lpDirectory := nil;
    nShow := 0;
    hInstApp := 0;
    lpIDList := nil;
  end;
  Result := ShellExecuteEx(@sei);
end;

// jak nie ma w faq to dodaj - ŁF