[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Подскажите как в Synapse, реализовать работу с gzip. В инете инфы почти нет.

 

подскажите, как в с помощью делфи, завершить процесс с определенным названием? И как запретить использование горячих клавиш? (Ctrl+Alt+Del, Win+d и т.д.)

 

Code:

if (Y mod 100)=0 then  
    result:=(y mod 400)=0
else
  result:= (Y mod 4)=0

или так

Code:

((((Y mod 100)=0) and ((Y mod 400))=0) or ((y mod 4)=0))

 

Добрый вечер всем ачатовцам,конкретного вопроса нет,вот написали мне но не дописали софт (авторегистратор аккантов фейсбук) в связи с нехваткой времени и нужен человек который поможет дописать (всё основное написано) осталось по мелочи или же напишет с нуля данный софт,стучите 636139987

 

fixed
((((Y mod 100)=0) and ((Y mod 400))=0) or (((Y mod 100)<>0) and ((y mod 4)=0)))

 

А сколько платишь?
Можно и дописать и переписать если в цене сойдемся

 

Gecko SDK (XPCOM.pas)...
мне надо:
1) загрузка страницы
2) заполнение полей и тиканье по кнопкам
3) код страницы
4) исключить загрузку изображений
5) поддержка javascript

ет какие итрефесі?

 

Мне нужно создать приложение, которое:

1)Поменяет шрифт текста у компонента Label при нажатии на кнопку Button
2)При запуске выведет текст "Hello World!" в окне редактирования Edit
3)Выведет подтверждение при закрытии формы

Приложение очень простое. Каким образом это сделать. Напишите кто нибуть код, желательно с комментариями

 

1. Событие OnClick кнопки:

Code:

Label1.Font.Color:=clYellow; //меняет цвет шрифта на желтый
Label1.Font.Name:='Times New Roman';  //выставляет сам шрифт
Label1.Font.Size:=16;  //размер шрифта 16

2. Событие OnCreate формы:

Code:

Edit1.Text:='Hello World!'; //думаю обьяснять не нужно 

3. Событие OnCloseQuery формы:

Code:

var i:integer;
begin
i:=MessageBox(Form1.Handle, 'Do you want to exit?', 'Exit', MB_YESNO);  //выводим сообщение и получем код нажатой кнопки
if i=7 then CanClose:=false;  //если 7 (нажато "Нет") запрещаем закрыть форму

 

Никто не знает ответа нам мой вопрос?

 

В смысле убить процесс по названию?
Так в гугле ищется за 2 сек.
Не найдешь пиши дам ответ

 

Убить (завершить) процесс по названию

Code:

uses Tlhelp32
...
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;

PS. в win7 не пробовал.

 

серьезный скрипт, надеялся на 3-4 строчки кода... Но все работает, спасибо

 

Все верно, только здесь ошибка.
Delphi не признает CanClose, указывает на него как на ошибку и не хочет компилировать

 

CanClose Это переменная которая присутствует только в событии OnCloseQery тоесть не в каком другом событии этот код не будет работать.

 

Ну а как сделать так, что бы оно у меня заработало?

 

в событии OnCloseQuery пропиши и будет работать.

 

нужно воспроизведения звук на линуксе и желательно на винде.
пока выбрал OpenAL. так вот как в нем:
1) воспроизвести звук
2) по завершении воспроизведения сгенерировать событие
3) прервать воспроизведение

 

Подскажите алгоритм поиска проксей в текстовике

пробовал искать по i:=pos(':',s) и чтоб по сторонам были цифры [цифра]i[цифра], но это не серьезно...

может есть какие-то реализованные решения?

 

Всем спасибо, кто помог справилсо сам..

простотой кода ни когда не отличался, но вдруг кому пригодится:

Code:

Function GetUrls(source:string):string;
var list:TStringList;
    t,i:integer;
    a,b:integer;
    s,tmp:string;
begin
 list:=TStringList.Create;
 s:=source;
 while pos(':',s)<>0 do
 begin
  tmp:='';
  t:=pos(':',s);
  for i:=t-1 downto 0 do
  begin
   if ((s[i]>='0') and (s[i]<='9')) or (s[i]='.') then tmp:=s[i]+tmp
   else break;
  end;
  tmp:=tmp+':';
  for i:=t+1 to length(s) do
  begin
   if ((s[i]>='0') and (s[i]<='9')) then tmp:=tmp+s[i]
   else break;
  end;
  a:=0; b:=0;
  for i:=1 to length(tmp) do
  begin
   if tmp[i]='.' then inc(a);
   if tmp[i]=':' then inc(b);
  end;
  if (a=3) and (b=1) then list.Add(tmp);
  delete(s,1,t);
 end;
 result:=list.Text;
 list.Free;
end;