Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.02.2007, 02:41   #51
Nez
Пользователь
 
Аватар для Nez
 
Регистрация: 15.01.2007
Сообщений: 72
По умолчанию

В пояснении к кряку было написано, что при установке надо отменить help и ещё там что-то
Nez вне форума Ответить с цитированием
Старый 18.02.2007, 15:57   #52
Speeker
Форумчанин
 
Аватар для Speeker
 
Регистрация: 01.12.2006
Сообщений: 241
По умолчанию

По перетягиванию файлов:
Код:
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ShellAPI, Grids, StdCtrls;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    lb: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
     procedure WMDropFiles(var M: TMessage); message WM_DROPFILES;
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
      Var
CountFiles  : integer;
SizeName    : integer;
cch         : integer;
Var
hDrop : integer;
Point : TPoint;
lpszFile : PChar;
{$R *.dfm}
 procedure TForm1.WMDropFiles(var M: TMessage);
Var
i: integer;
begin
hDrop := M.WParam;
DragQueryPoint(hDrop,Point);
CountFiles := DragQueryFile(hDrop, $FFFFFFFF, nil, cch);
for i:=0 to CountFiles-1 do
begin
SizeName   :=  DragQueryFile(hDrop, i, nil, cch);
GetMem(lpszFile,SizeName+1);
DragQueryFile(hDrop, i, lpszFile, SizeName+1);
lb.Items.Add(lpszFile);
FreeMem(lpszFile,SizeName+1);
end;
DragFinish(hDrop);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 DragAcceptFiles(Handle,True);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 lb.Items.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShellAbout(Handle,'Speeker','APSystems',0);
end;
end.
Думаю разберешся, внимательно посмотри какие модули надо подключить
Програмисты - единственные люди, которым платят за исправления их же ошибок
Speeker вне форума Ответить с цитированием
Старый 19.02.2007, 01:37   #53
Nez
Пользователь
 
Аватар для Nez
 
Регистрация: 15.01.2007
Сообщений: 72
По умолчанию

Не, я уже всё сделал! Остался только mail.. Я счас уже который день только над ним и бьюсь. Проблема с кодом, коорый был где-то выше приведён в строчке:
Код:
  IdSMTP1.AuthenticateType:=atLogin
Так вот, в Delphi 2005, почему-то нет параметра AuthenticateType.... Есть AuthType, но к нему уже параметр atLogin неподходит
Nez вне форума Ответить с цитированием
Старый 21.02.2007, 05:49   #54
Angel_man
Новичок
Джуниор
 
Регистрация: 16.02.2007
Сообщений: 2
По умолчанию

Цитата:
Сообщение от Nez Посмотреть сообщение
Не, я уже всё сделал! Остался только mail.. Я счас уже который день только над ним и бьюсь. Проблема с кодом, коорый был где-то выше приведён в строчке:
Код:
  IdSMTP1.AuthenticateType:=atLogin
Так вот, в Delphi 2005, почему-то нет параметра AuthenticateType.... Есть AuthType, но к нему уже параметр atLogin неподходит

В старых версиях использовался NMSMTP, посмотри такой компонент.
Angel_man вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Несколько вопросов Зубоскалик Общие вопросы Delphi 14 20.11.2008 14:28
Несколько вопросов по VBA Graveyard Microsoft Office Excel 6 27.08.2008 08:50
Код и несколько вопросов artemavd Общие вопросы Delphi 18 20.08.2008 10:51
несколько вопросов по RichEdit TaTT DoGG Компоненты Delphi 4 27.05.2008 10:57
Несколько Вопросов Дорст Общие вопросы Delphi 3 12.11.2007 09:18