7-е апреля, а за окном такое… Лет 30 назад 1-го мая уже купальный сезон открывали… Глобальное потепление во всем мире объявили? Про Приморье точно не забыли? Или может просто постапокалипсический пейзаж тоску нагоняет? (читать всё…)

Как переделать Delay, чтобы можно было в 10Mks выставить? Пробовал разные значения подставлять, но все равно в миллисекундах не получается.

raxp

procedure delay_microsec(val: int64);

var Freq, TimeImp, TimeImpNow, TimeElapsed: int64;

begin

 QueryPerformanceFrequency(Freq);

 QueryPerformanceCounter(TimeImp);

 repeat

  QueryPerformanceCounter(TimeImpNow);

  TimeElapsed:= ((TimeImpNow - TimeImp) * 1000000) div Freq;

 until TimeElapsed > val

end;

Пеллетные камины и котлы испанского производства EcoForest

тема на форуме

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

дравствуйте.
Однажды от своего знакомого (довольно хорошо дружащего с ПК) услышал (опосредованно, правда), что если при установке ПО не сделать вид, что прочёл лицензию (не просто поставить галочку, о «адекватно» прокрутить лицензию), то программа КРИВО встанет. С тех пор не могу избавиться от этой привычки делать вид каждый раз при установке ПО, хоть до того, когда это услышал, ставил ПО, даже не задумываясь.

Как думаете, это правда? Я, конечно, понимаю, что можно реализовать такую тактику, но всё же… (читать всё…)

На форме лежат StringGrid (1 фиксированная строка + 1 пустая, 3 столбца), 3 Edit’a и Кнопка. По нажатию кнопки в Грид нужно записать содержимое Едитов (соответственно к каждой ячейке свой Эдит). При следующем нажатии, необходимо добавить строку, и записать новые значения из Эдитов, и так далее… Как это можно реализовать ?

DenProx

var x,y : integer;

begin

 y := RzStringGrid1.RowCount -1;

 x:=0;

 RzStringGrid1.Cells[x,y]:= IntToStr(RzStringGrid1.RowCount -1);

 inc(x);

 RzStringGrid1.Cells[x,y] := Edit1.Text;

 inc(x);

 RzStringGrid1.Cells[x,y] := Edit2.Text;

RzStringGrid1.RowCount := RzStringGrid1.RowCount + 1;

y:=0;

Корпусная мебель оптом от российского производителя.

тема на форуме

Есть таблица в которой есть поля с датой: ‘datainet’, ‘datamail’, ‘datarereg’;
там, где дата не заполнена при выводе отображается 0000-00-00..
Как избавиться от этого и вместо 0000-00-00 выводить пустую ячейку таблицы или прочерк?? (читать всё…)

Есть у меня своя программа. И есть некоторая сторонняя программа, которая имеет несколько возможных параметров запуска. Так вот я запускаю эту стороннюю программу через shellexecute и передаю туда нужные параметры запуска.
На самом деле эти параметры запуска «секретные», там пароли, коды и всё такое, которые посторонние люди знать не должны, но люди пользуясь сторонним софтом эти параметры выдирают. Можно ли после запуска программы их стереть, как будто я запускал программу без каких-либо параметров запуска?

Anton911

memoffset = $85004; // смещение указателя на адрес где параметры от kernel32.dll

procedure DetectCode;

  var

    wBuff: Array[0..350] of Char;

    sBuff,tBuff:String;

    point_addr, kernelBase:DWORD;

    wHandle, ProcessID, pHandle, BytesCount: cardinal;

    i:Integer;

begin

 Form1.Console.Clear;

 pHandle := 0;

 wHandle := 0;

 kernelBase := GetModuleHandle(PWideChar('Kernel32.dll'));

 ShellExecute(0,'Open', PWideChar(ExtractFilePath(ParamStr(0)) + 'proga.exe'),

                PWideChar(GetParam), nil, SW_SHOWNORMAL);

 while wHandle = 0 do wHandle := IsProgRun;

 if wHandle  0 then

  begin

   GetWindowThreadProcessId(wHandle, @ProcessID);

   pHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessID);

   if not ReadProcessMemory(pHandle, Pointer(kernelBase + memoffset), @point_addr, sizeof(point_addr), BytesCount) then

   Form1.Console.Lines.Add('Не могу получить адресс указателя на смещение');

   {}

   sBuff := wBuff;

   FillChar(wBuff, SizeOf(wBuff), #0);

   tBuff := Copy(sBuff, 1, Pos('-password=', sBuff) - 1);

   Delete(sBuff, 1, Pos('-password=', sBuff) - 1);

   if Pos(' ', sBuff)  0 then

    begin

     Delete(sBuff,1, Pos(' ', sBuff));

     tBuff := tBuff + sBuff;

    end;

   for i := 0 to Length(tBuff) - 1 do

    begin

     wBuff := tBuff;

    end;

   if not WriteProcessMemory(pHandle, Pointer(point_addr), @wBuff, sizeof(wBuff), BytesCount) then

    Form1.Console.Lines.Add('Не могу внедриться в программу');

 end;

end;

Пеллетные котлы Kostrzewa — автоматические твердотопливные котлы с ёмкостью бункера обеспечивающего непрерывную работу — 1 неделю и больше. Автоматический розжиг и модуляция процесса горения от 20% до 100%.

тема на форуме

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

Нужно разработать программу записи звукового файла с использованием TMediaPlayer, помогите с кодом.

misher

Взято из Delphi World

procedure TForm1.btRecordClick(Sender: TObject);

begin

  with Media do

  begin

    { Set FileName to the test.wav file to }

    { get the recording parameters. }

    FileName := 'd:\test.wav';

    { Open the device. }

    Open;

    { Start recording. }

    Wait := False;

    StartRecording;

  end;

end;

procedure TForm1.btStopClick(Sender: TObject);

begin

  with Media do

  begin

    { Stop recording. }

    Stop;

    { Change the filename to the new file we want to write. }

    FileName := 'd:\new.wav';

    { Save and close the file. }

    Save;

    Close;

  end;

end;

Пост написан при поддержке ooo-bioterm.ru

Сервисный центр по установке отопительного оборудования тут — http://ooo-bioterm.ru

тема на форуме

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