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

виндовский блокнот работает как у меня) может удаляться не последняя набранная буква, а весь набранный текст. смысл делать undo для одного символа? backspace есть...

ЗЫ каким компонентом лучше пользоваться для отправки почты?

 

Piflit > idSMTP (Отправка почты средствами Delphi)

 

2 Piflit На мой взгляд лучше юзать для отправки почты обычные сокеты. Имхо меньше размер Ктомуже мож даже анонимно слать

 

спасибо, но я уже заюзал idSMTP =\

 

помогите с кодом

нада чтобы прога искала сначала один фаил по нажатии на кнопку, потом другой и а если она ненайдет первый фаил то должно выводиться сообщение что фаил ненайден.

Code:

procedure TForm1.Button4Click(Sender: TObject);   
    var
    sr:TSearchRec;
    Result1, Result2 :word;
    begin
        ChDir('C:\x-hider');
        Result1 := FindFirst ('System.dcu',faAnyFile,sr);
        if result1=0 then
    Begin
        Result1:=FindNext (sr);
    End;
     if result1<>0 then
           begin
              showmessage('asdvxcdra')
           end;

    if Result1=0 then
                  begin
        ChDir('C:\x-hider');
        Result2 := FindFirst ('Windows.dcu',faAnyFile,sr);
        if result2<>0 then
    Begin
        Result2:=FindNext (sr);
    End;
                   end;
     if result2<>0 then
           begin
              showmessage('asdvxcdra')
           end;
    end;

сам с поиском работаю впервые,и вообще эту функцию никогда неиспользовал, если есть способ попроше реализовать мою идею, плиз сообшите.

 

GlobaL >

Code:

var SR:TSearchRec;
begin
      ChDir('C:\x-hider');
      if FindFirst('System.dcu',faAnyFile,sr)<>0 then
            ShowMessage('aaa');
      if FindFirst('Windows.dcu',faAnyFile,sr)<>0 then
            ShowMessage('aaa');
      FindClose(SR);
end;

 

пасип ща попробую

 

GlobaL

Тут все проще можно =)

Code:

function FileExists(const FileName :string) :Boolean;
var
  Code :DWORD;
begin
  Code := GetFileAttributes(PChar(FileName));
  Result := (Code <> DWORD(-1)) and (Code and FILE_ATTRIBUTE_DIRECTORY = 0);
end;

Code:

-----------------------------------------------
if FileExists('C:\test.txt') then MessageBox(0,'Файл найден',0,0) else MessageBox(0,'Файл не найден',0,0);

 

понял снова)

 

Народ.. такая проблема... надо чтобы программа загружала файл из интернета и причем это не показывала. много функций пересмотрел - непонимаю как заюзать.. кто поможет составит функцию как программой загрузить файл из интернета - получит плюсик и огромадный ресмпект))

 

Как загрузить посмотри здесь

 

Ситуация такая.
Пишу я одну прогу, которая в процессе своей работы обращается к веб-сайту..
Точнее , не знаю, как это правильно сказать, к форме что-ли.. где нужно ввести определённый набор символов...т.е. логин и пароль).. Как программно вбить туда эти данные... я думал что нужно что-то типа имитации нажатия клавиш (keybd_event), но так и не понял как оно работает..

Заранее спасибо за понимание)

 

Allbit если ты имеешь в виду то, что я думаю, то надо просто составить запрос так:
http://www.site.ru/index.php?login=qwerty&password=pass

 

Вопрос:
Где скачать?
Учебник с примерами обезательно примеры (я начинающий)
И сам компилер и что там

 

дельфи:
http://forum.antichat.ru/showpost.php?p=369618&postcount=71

 

Учебник с примерами обезательно примеры (я начинающий)
Жду срочно!

 

Да,мне нужно именно это, но у меня есть ссылка вида https://www.site.com/members/bin/hist.mpl?index
При запуске, появляется окно , где нужно залочиться..
если просто приписать к этому https://www.site.com/members/bin/hist.mpl?index?login=qwerty&password=pass то это не катит.. наверное я туплю, и всё же.. ) как сделать правильно?

 

если хочешь, можешь кинуть ссылку в пм. я посмотрю

 

GET- и POST-запросы можно делать с помощью WinInet.

 

На дельфи нельзя. Только если намутить чтонить с folder.htt и прочим. Но это защита от дураков только.
Лучший выход - запароленный виртуальный диск
ЗЫ. Это вопрос не по дельфи

Сделать снапшот процессов через CreateToolHelp32Snapshot и перебрать процессы, сравнивая имена образов.
ЗЫ. этот вопрос тоже не по дельфи, а по WinAPI