Создать файл

[c0zak]

Пишу програмку которая в назначенное время вырубает комп. Столкнулся с вопросом-как заставить прогу создавать батник самостоятельно? Потому как при портировании таскаться с батником не очень удобно. Или уж совсем смелая мечта-можно ли запустить cmd с заданным параметром? Заранее спасибо.

[Xatr]

вам нужна такая прога?

cmd с заданным параметром можно. в cmd пишется %1 и вместо этих символов автоматом вставляется введённый параметр.

[c0zak]

Вы меня немножко не поняли =) Сама программа уже есть (если интересно проект (Delphi) приложен).
Нужна процедура создания файла с заданным именем в директории с программой.

[Xatr]

можно так:

var a:Text;
begin
AssignFile(a,'1.cmd');
RewriteFile(a);
Write(a,'shutdown -s -t 100 -c "Проверка" -f');
CloseFile(a);

запустить файл:

uses shellapi;
shellexecute(0,'open','1.cmd',nil,nil,sw_minimize);

но вот только для чего? Если можно организовать выключение из проги и не использовать cmd файлы...

[*PB*]

Зачем CMD юзать, если есть API с помощью которых комп легко выключается?

Structure MyLUID 
  LowPart.l 
  HighPart.l 
  Attributes.l 
EndStructure 
  
Structure MyTOKEN 
  PrivilegeCount.l 
  LowPart.l 
  HighPart.l 
  Attributes.l 
EndStructure

Procedure PowerOff() ; Выключение компьютера
  hdlProcessHandle.l 
  hdlTokenHandle.l 
  tmpLuid.MyLUID 
  tkp.MyTOKEN 
  tkpNewButIgnored.MyTOKEN 
  lBufferNeeded.l 
  hdlProcessHandle = GetCurrentProcess_() 
  OpenProcessToken_(hdlProcessHandle, #TOKEN_ADJUST_PRIVILEGES | #TOKEN_QUERY, @hdlTokenHandle) 
  SysName.s=""+Chr(0) 
  Name.s="SeShutdownPrivilege"+Chr(0) 
  Erg.l=LookupPrivilegeValue_(SysName, Name, @tmpLuid) 
  tmpLuid\Attributes = #SE_PRIVILEGE_ENABLED 
  tkp\PrivilegeCount = 1  
  tkp\LowPart = tmpLuid\LowPart 
  tkp\HighPart = tmpLuid\HighPart 
  tkp\Attributes = tmpLuid\Attributes 
  Erg.l = AdjustTokenPrivileges_(hdlTokenHandle,0,@tkp,SizeOf(MyTOKEN),@tkpNewButIgnored,@lBufferNeeded) 
  Erg.l = ExitWindowsEx_((#EWX_SHUTDOWN |#EWX_POWEROFF | #EWX_FORCE), 0) 
EndProcedure 

If MessageRequester("", "Выключить комп?", #MB_YESNO|#MB_ICONQUESTION|#MB_DEFBUTTON2) = #IDYES
   PowerOff()
EndIf

[c0zak]

Xatr огромное спасибо =) Это как раз то что нужно. Я думаю тему можно закрыть.