Текущий архив: 2011.02.06;
Скачать: CL | DM;
Вниз
Запуск программы в консоле Найти похожие ветки
← →
kiro (2010-11-14 04:06) [0]Доброго времени суток. Есть данная ниже программа. Как сделать так, чтобы запускалась она не с помощью кнопки а с помощью команды в консоле.
procedure TForm1.Button1Click(Sender: TObject);
var
FileHandle: THandle;
LocalFileTime: TFileTime;
DosFileTime: DWORD;
LastAccessedTime: TDateTime;
FindData: TWin32FindData;
begin
FileHandle := FindFirstFile("AnyFile.FIL", FindData);
if FileHandle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime,
LongRec(DosFileTime).Hi, LongRec(DosFileTime).Lo);
LastAccessedTime := FileDateToDateTime(DosFileTime);
Label1.Caption := DateTimeToStr(LastAccessedTime);
end;
end;
end;
← →
И. Павел © (2010-11-14 09:24) [1]Если я правильно понял вопрос, то рекомендую сделать так:
Запускать программу в консоли с параметром: start.exe -go
В OnShow главной формы написать:if paramStr(1) = "-go" then ButtonClick(nil);
← →
Anatoly Podgoretsky © (2010-11-14 13:35) [2]В консоли надо набрать имя программы и нажать Энтер.
Страницы: 1 вся ветка
Текущий архив: 2011.02.06;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.006 c
