Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c