Jak wyświetlić programowo okno właściwości pliku?
&
Jak usunąć z pliku tekstowego ostatnią linijkę?
z góry dzięki za pomoc ;)
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