На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> Как проверить файл на возможность записи?
    Программа запускает батник, результатом которого является создание файла. Время работы батника разное. Нужно как-то зациклить программу, пока этот файл не создастся и сам файл будет доступен для записи, т.к. создается он изначально пустой а потом наполняется.

    Дальше программа файл ренеймом переносит созданный файл в другую папку.

    Пробовал так сделать, не получается, не циклится, сразу проходит

    ExpandedWrap disabled
            ShellExecute(0, 'open', 'cmd.exe', PChar(S), nil, SW_HIDE); // запуск стороннего батника
       
            repeat
              Try
                Succes:=True;
                    RenameFile(OutputFolder+ChangeFileExt(ListBox1.Items[ListBox1.ItemIndex],''),OutputFolder+GetUserFromWindows+OutputFileName);
                Except Succes:=False;
       
              End;
            until succes;


    Добавлено
    ExpandedWrap disabled
            repeat
              Try
                  Succes:=True;
                  FS:=TFileStream.Create(OutputFolder+ChangeFileExt(ListBox1.Items[ListBox1.ItemIndex],''),fmOpenWrite);
                Except Succes:=False;
              End;
            until succes;
            FS.Free;


    Вот так вродебы пашет, я FS.Free в нужном месте поставил, да и конструкцию не переврал?
    "Воля - это то, что заставляет тебя побеждать, когда твой рассудок говорит тебе, что ты повержен" Карлос Кастанеда
      Извращенец. Дождись отработки батника.
      ExpandedWrap disabled
        procedure ExecuteFileAndWait(FileName:String;WindowState:Word);
        var
        Buffer: array[0..511] of Char;
        StartupInfo:TStartupInfo;
        ProcessInfo:TProcessInformation;
        ExitCode:DWORD;
        begin
          StrPCopy(Buffer,FileName);
          FillChar(StartupInfo,SizeOf(StartupInfo),#0);
          StartupInfo.cb := Sizeof(StartupInfo);
          StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
          StartupInfo.wShowWindow:=WindowState;
          if CreateProcess(nil, Buffer, nil, nil, False,
                           CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
                           nil, nil, StartupInfo, ProcessInfo)
          then begin
             while WaitforSingleObject(ProcessInfo.hProcess,500)=WAIT_TIMEOUT do application.ProcessMessages;
             GetExitCodeProcess(ProcessInfo.hProcess, ExitCode);
           end
        end;
        ExecuteFileAndWait(S, SW_HIDE);
        Мудрено, но спасибо :)
        "Воля - это то, что заставляет тебя побеждать, когда твой рассудок говорит тебе, что ты повержен" Карлос Кастанеда
        0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
        0 пользователей:


        Рейтинг@Mail.ru
        [ Script Execution time: 0,0885 ]   [ 18 queries used ]   [ Generated: 25.08.19, 18:42 GMT ]