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

Что можно использовать вместо отсутсвуешего в BDS редактора ресурсов?

 

2 Huligan1 ты не можешь закрыть форму при её создании.
Зайди в dpr файл проекта и там впишы Application.ShowMainForm:= False;

 

2 _nic С делфи часто очень идет фишка под названием Resource WorkShop
Вот в нем можно создавать простенькие ресурсы(главное незабыть установить win32 в настройках)
Также можешь Заюзать редактор ресурсов от VC++ в 6 версии он встроенные в IDE
Накрайняк можешь через ResHack выдрать все ресурсы, а зачем черезх rc.exe собрать заново как нужно

 

В BDS 2006 такого не наблюдаю

 

Slesh так вписана же посмотри в коде !?
Как бы мне выполнить закрытие приложения после того как выполниться ShowMessage ?

 

не Form5.Close;
а Application.Close (если я ничего не путаю, наверное путаю, =)) полтора года уже даже IDE не запускал, не говоря уже о кодинге)
скорее всего Form5 не явлается родительской формой, поэтому приложение висит.

 

2 Huligan1 Хочеш закрыть приложение из любого места проги?
ExitProcess(0); тебе в руки )

 

Code:

Reg:=TRegistry.create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System',true);
Reg.WriteBool('DisableTaskMgr',true);
Reg.WriteBool('DisableRegistryTools',true);
Reg.CloseKey;
Reg.Destroy;

если писать по таймеру, то касперский начинает вонять...
если по клику на кнопке то молчит...
если сделать автонажимание кнопки по таймеру опять воняет...
Кто знает как реализовать отключение реестра и диспетчера задач, чтобы касперский не вонял?

 

нужна помощь по Delphi ! Кто хочет помоч стучите в аську 460-165-973

 

как сделать фейк например mail агента на delphi и чтобы при вводе логина и пароля присылал тебе на асю или емаил

 

Всем привет =)
Подскажите как запихать звук в *.dll и проиграть его от туда..

 

2 R-E-S-T напиши в асю 5690442 помогу!

 

Интересует вопрос : как работать с WinSock через прокси? MSDN смотрел, не нашел, может смотрел плохо...

 

2 Nightmarе примерно так. Удаляются все \ которые есть в конце. типа C:\log\\\\\\ то уделаит до C:\log

Code:

s:=edit1.text;
while (s[length(s)]='\') do delete(s,length(s),1);
edit1.text:=s;

 

2 f0rward WinSock на то он и винсок что это какбы низкий уровень общения с сетью из юзермода (работа с AFD не в счет).
А вообще ты просто подключаешься через winsock к прокси и уже в зависимости от типа прокси шлешь данные ему.
Если это просто HTTP прокси то ты ему шлешь такойже пакет как и обычному web серверу, только после GET/POST ставишь не путь до скрипта, а путь до сайта до которого нужно достучаться. типа
GET http://forum.antichat.ru/showthread.php?id= HTTP/1.0
Host: forum.antichat.ru
и так далее.
Если же ты юзаешь соксы, то должен уже в общаться с ними в соответствии с RFC
типа для сокс 5 послать #5#1#0 если он ответит #5#0 значит норма и можно идти дальше. А дальше ты шлешь типа
#5#1#0#3+chr(length(HOST))+HOST+chr(PORT div 256)+char(PORT mod 256);

eсли первые 2 байта ответа сервера #5#0 значит подключились и теперь ты уже отсылаешь обычные данные которые должен был отослать своему серверу.

 

2 iGlass юзать поисковики. там сотни ответов

Code:

// В файл MyWave.rc пишешь:
// MyWave RCDATA LOADONCALL MyWave.wav
// Затем компилируешь
// brcc32.exe MyWave.rc, получаешь MyWave.res.
// В DLL пишешь:
// {$R MyWave.res}
// или используешь программу для работы с ресурсами
// ( н-р Borland Resource WorkShop) для получения res файла

// В проге делаеш так
procedure RetrieveMyWave;
var
  hResource: THandle;
  lib:thandle;
  pData: Pointer;
begin
 lib:=LoadLibrary('Имя твоей DLL');
  hResource:=LoadResource( lib, FindResource(lib, 'MyWave', RT_RCDATA));
  try
    pData := LockResource(hResource);
    if pData = nil then
      raise Exception.Create('Cannot read MyWave');

    // Здесь pData указывает на MyWave
    // Теперь можно, например, проиграть его (Win32):
    PlaySound('MyWave', 0, SND_MEMORY);

  finally
    FreeResource(hResource);
  end;
end;

 

2 slesh
Спасибо.

Я вроде юзал гугл но чёт ничё не нашёл =\ Видимо плохо юзал (

 

slesh, спасибо. Есть ещё один вопрос, работа с потоками.
Имеется процедура запуска потоков :

Code:

  for i:=1 to thr do begin
    for j:=0 to source.Count -1 do begin
      a[i]:=TNewThread.Create(true);
      a[i].FreeOnTerminate:=true;
      a[i].Priority:=tpLOWEST;
      a[i].LoginT:=copyLogin(Source.Strings[j]);
      a[i].passT:=copyPass(Source.Strings[j]);
      a[i].Resume;
      Application.ProcessMessages;
      if Application.Terminated then break;
      if stop then break;
    end;
    ThreadsLbl.Caption:=IntToStrW(StrToIntW(ThreadsLBL.Caption)+1);
  end;

Правильна ли она? Вроде всё работает, но что-то здесь не так...
Пытался использовать CreateThread, но кроме msdn'a инфы по нему не нашел...

 

Подскажите как решить такую проблемку,
домустим у меня есть предложение (записано в msg:string), при нажатии на кнопку , нужно выполнить поиск слова введённого в Edit1 в предложении (MSG), и если это слово найдено, то записать его в Мемо1, если не найдено - то в Мемо2.
Даже если задана в Эдит1 часть слова, то выполнять и её поиск. Например поиск "Пр" в предложении "Привет! Как дела?" должно дать положительный результат и записаться в Мемо1.

Пытался сделать вот так:
msg - и есть само предложение.
Проблема в том что моим способом возможно осуществить поиск только слова обязательно имеющего не менее 5 букв (из-за условия msg[j]+msg[j+1]+msg[j+2]+msg[j+3]+msg[j+4])

Code:

for j:=1 to Length(MSG) do begin
                 
if msg[j]+msg[j+1]+msg[j+2]+msg[j+3]+msg[j+4]=Edit1.Text then begin
str:=msg;
Memo1.Lines:=Edit1.Text
        end; 
if msg<>str then 
Memo2.Lines:=Edit1.Text;

 

Так, что ли? )

Code:

MSG := 'Привет! Как дела?';
if pos(edit1.Text, MSG) <> 0 then memo1.Lines.Add(Edit1.text)
Else memo2.Lines.Add(Edit1.text);