[VasyaPupkin81]

А можно взглянуть как ты окно отображаешь?

З.Ы. Насколько я понял у тебя выполняется какой-то цикл или что-то в таймере. Если так, то посмотри Application.MessageBox.

[Delirium]

Выполнение задачи необходимо запускать в отдельном потоке, при выскакивания окна делать заморозку потока (thread.suspend или thread.sleep, точно не помню). Для продолжения размораживаем поток Thread.Resume. Как то так.

[pva]

Ещё вариант - сделать "разделяемую" задачу, то есть загнать все внутренние цикловые переменные долго выполняемой программы в класс TMyJob, ввести переменную состояния TMyJob.state: integer {0=constructing, 1=running, 2=suspened, 3=finished}, и функцию TMyJob.proceed(), которая возвращается если 2<=state и содержит выполняемый цикл. Чтобы всё гладко работало, нужно периодически в цикле делать так:

Код:

function TMyJob.proceed() : boolean;
begin
   while 2<=state do begin
      ProcessMessages; //обрабатывает сообщения, в т.ч. от мышки и таймера

      for ... // цикл, который работает примерно 0.5 - 1 секунду
   end
end

Чтобы продложить работу такой приостановленной задачи, достаточно вызвать TMyJob.proceed(). Если есть несколько таких "задач", то лучше имитировать многозадачность:

Код:

var jobs : array of TMyJob;
var job_n: integer;

procedure sheduled_jobs(); // запускать из Application.OnIdle
begin
   if (High(job_n) < job_n) job_n = Low(job_n);
   jobs[job_n].proceed();
end;

function TMyJob.proceed() : boolean;
begin
   if 2<=state then begin
      for ... // цикл, который работает примерно 0.5 - 1 секунду
   end
end

[ALI]

Добрый день, дамы и господа! Помогите, пожалуйста, передать двумерный динамический массив в отчет FastReport4 с целью дальнейшего его использования в скрипте. С обычной переменной все просто, как я понимаю, это надо делать следующим образом:

Код:

Report.Script.Variables['a'] := a;

Где a - некая переменная, например, типа integer. Но как быть с массивом?

[Serega]

Здравствуйте, помогите разобраться, почему при использовании полного пути функция FileExists работает нормально, а при использовании относительного - нет... вот пример кода:

читать дальше »

Код:

// зависимость: ShlObj
function TForm1.GetSpecialPath(CSIDL: Word): string;
var
  s: string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, True) then
  s := '';
  Result := PChar(s);
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  APPDATA: string;
begin
  APPDATA:= GetSpecialPath(CSIDL_APPDATA);
  // здесь выводит в сообщении полный путь до файла, т.е. всё нормально
  ShowMessage(APPDATA + '\Microsoft\User Account Pictures\Default Pictures\Windows.bmp');
  // в таком варианте не работает...
  if FileExists(APPDATA + '\Microsoft\User Account Pictures\Default Pictures\Windows.bmp') = True then
  ShowMessage('Урааа!!!') else ShowMessage('Zhopa kakaja-to...');
  // при указании полного пути, всё нормально...
  if FileExists('C:\Documents and Settings\All Users\Application Data\Microsoft\User Account Pictures\Default Pictures\Windows.bmp') = True then
  ShowMessage('Урааа!!!') else ShowMessage('Zhopa kakaja-to...');
end;

[Alan85]

цитата из WinAPI:
CSIDL_APPDATA (0x001a)
Version 4.71. The file system directory that serves as a common repository for application-specific data. A typical path is C:\Documents and Settings\username\Application Data. This CSIDL is supported by the redistributable Shfolder.dll for systems that do not have the Microsoft® Internet Explorer 4.0 integrated Shell installed.

Т.е. если будешь по внимательнее то заметишь что ты пытаешься найти этот файл в C:\Documents and Settings\username\Application Data а не C:\Documents and Settings\All users\Application Data

Вот еще цитата:

CSIDL_COMMON_APPDATA (0x0023)
Version 5.0. The file system directory containing application data for all users. A typical path is C:\Documents and Settings\All Users\Application Data.
т.е. тебе надо поставить вместо CSIDL_APPDATA это CSIDL_COMMON_APPDATA (если делфи ругается что нет такого то ставь число - $23)

[FlatX007]

Помогите решить простенькую задачу.

Нужно сохранить HTML код страницы НТТРS во временную папку ввиде ТХТ-документа.
Делать это нужно циклически каждые 20 секунд.

И ещё будут нужны дополнительные библиотеки ?

[Serega]

FlatX007, поиск

[Serega]

Добавил в шапку темы интересную статью. Особенно будет интересна для пользователей Delphi версий 4-7 (включительно).

[Гарин]

Такой вопрос - пишется бот для брутфорса.
Функционал - при появлении в файле good данных (вес файла становится больше 0 байт), отправляет их куда указано, потом прога закрывается.
Хотелось бы сделать, чтоб прога не закрывалась, а висела дальше, и если появится вторая/третяя/сто третяя то тоже отсылал.
Как такое исполнить?
То есть проверку по строкам, и не по весу файла.
Спасибо.