| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запуск программы в консоле [D7, XP]

kiro ©   (2010-11-14 04:06:00) 

Доброго времени суток. Есть данная ниже программа. Как сделать так, чтобы запускалась она не с помощью кнопки а с помощью команды в консоле.
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;  

---

Anatoly Podgoretsky   (2010-11-14 13:35:00) [1]

В консоли надо набрать имя программы и нажать Энтер.

---

И. Павел   (2010-11-14 09:24:00) [2]

Если я правильно понял вопрос, то рекомендую сделать так:
Запускать программу в консоли с параметром: start.exe -go
В OnShow главной формы написать:
if paramStr(1) = '-go' then ButtonClick(nil);

---

Наверх