Привет, приведите листинг примера создания динамического символьного массива (занесения к примеру элементы: Катя, Петя, Лена и вывод одного из них скажем в Memo1 )

(читать всё…)

Мне нужно в ячейку StringGrid поместить дату и время изменения файла
Делаю это так:

function ReadDate(FN:String):String
var
W: WideString; // полное имя файла
Dat:TDateTime;
FHandle: Integer;
begin
 W:=FN;
 FHandle := FileOpen(w, 0);
 Dat:= FileDateToDateTime(FileGetDate(FHandle));
 Result:= FormatDateTime('yyyy.mm.dd.hh.nn.ss', Dat);
end;

Однако, полученное время отличается от видимого в свойствах файла (в проводнике)
Например:
получено 2008.08.26.19.42.02
в свойствах 26.08.2008 20:42
То есть, ровно на час (если файл был изменен за час до нового года, то на год)
Что интересно, если дату изменения вернуть назад функцией FileSetDate,
то дата в свойствах файла становится на час моложе (прибавляется час)
Сам вопрос:
Можно ли не особенно исхитряясь получить дату съемки полностью соответствующую таковой в свойствах файла.
Если нельзя, то как выяснить (программно) региональные настройки Windows и как их использовать для коррекции полученной даты (нужно их как-то преобразовать, а затем сложить или вычесть…)

(читать всё…)

Хотел сделать такой вот код, но он выдал ошибку в процессе исполнения

    E.SetFocus;
    If F.ShowModal ...

Где E — TEdit на форме F

Вопрос: как сделать фокус на E при том что я запускаю форму через ShowModal?

(читать всё…)

Delphi7.

На форме есть Panel на ней лежат компоненты StatusBar и Button.
При выполнении Panel.Enabled:=false
компоненты уже не реагируют на нажатия но визуально они не меняются на серые
Нужно что бы при отключении панели было визуально видно что все компоненты лежащие на ней стали не активны.

Как такое реализовать малой кровью?

(читать всё…)

Как очистить Memo от пустых строк?

(читать всё…)

Как мне проигрывать wav так, чтоб можно было контролировать воспроизведение. Собственно нужно только PLAY и STOP.
(читать всё…)

Мне требуется выполнять некий код в программе в определенные часы.
К примеру ставим диапазон 20-12. Это значит что код будет выполняться каждую минуту с 20 часов вечера по 12 часов дня (следующего)

(читать всё…)

(читать всё…)

Сколько видел программ на Free Pascal’е — везде объекты уничтожаются вручную, через Free или FreeAndNil. А ведь можно сделать чтобы это происходило автоматически. Для этого надо с объектами работать через интерфейсы и классы делать производными от TInterfacedObject. Переменная типа interface является интеллектуальным указателем, который контролирует использование объекта. Если пытаться использовать переменную типа interface без инициализации, то компилятор выдаст предупреждение. Когда уже никто не использует объект, переменная-интерфейс уничтожит его автоматически.

(читать всё…)

Подскажите, как убить системный процесс? Раньше на XP было так:
А теперь на windows 10 64 bit как?

function KillTask(ExeFileName: string): integer;
const
  PROCESS_TERMINATE=$0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot
  (TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
  FProcessEntry32);
  while integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
    UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
    UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(OpenProcess(
      PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

(читать всё…)