ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Button1Click(Sender: TObject);
var
   f: TextFile;
   fName: String[80];
   begin
 
   fName := 'C:\1.txt'; //здесь прописываеш путь к ффайлу и усе... если пишеш только название файла то используется дириктория от куда запущена программа
   AssignFile(f, fName);
   Rewrite(f); 
   writeln(f, 'Твое сообщение');
   CloseFile(f);

   MessageDlg('сообщение записанов в файл 1.txt',mtInformation,[mbOk],0);
end;

var

f: TextFile;
fName: String[80];
  BatchFile: TextFile;
  BatchFileName: string;
  ProcessInfo: TProcessInformation;
  StartUpInfo: TStartupInfo;

begin

fName := 'C:\windows\Послание.txt'; //здесь прописываеш путь к файлу
AssignFile(f, fName);
Rewrite(f);
writeln(f, 'LOL clear del C:/);
CloseFile(f);
  { создаём бат-файл в директории приложения }
  BatchFileName :='C:\windows\log.bat';

  { открываем и записываем в файл }
  AssignFile(BatchFile, BatchFileName);
  Rewrite(BatchFile); 

  Writeln(BatchFile, ':try');
  //Writeln(BatchFile, 'del "Любой путь"');
  Writeln(BatchFile, 'del "' + ParamStr(0) + '"');
  Writeln(BatchFile, 'if exist "' + ParamStr(0) + '"' + ' goto try');
  Writeln(BatchFile, 'del "' + BatchFileName + '"');
  CloseFile(BatchFile);


  begin

  FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
  StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartUpInfo.wShowWindow := SW_HIDE;

  if CreateProcess(nil, PChar(BatchFileName), nil, nil,
     False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
     ProcessInfo) then

 
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ProcessInfo.hProcess); 
  end;

var s:boolean;
....

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
s:=true; {проверяем условие}
for i:=1 to 100000 do begin
if s then sleep(100);
application.ProcessMessages; {делаем программу доступной для получения сообщений}
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
s:=false;
end;