Вопрос по Delphi

[Hamster]

Ответ: Помощь по Delphi

Колоб, я пробывал. В етом то и загвоздка.
Undeclared identifier shellexecute

 

[KoLoB]

Ответ: Помощь по Delphi

Колоб, я пробывал. В етом то и загвоздка.
Undeclared identifier shellexecute

Конечно, так и должно быть!
Головой думать надо!

Попробуй поискать в справке Делфы. Даю 100 процентов, что через 2 минуты ты найдешь в чем трабла.

З.Ы. Подключи ShellAPi (добавь в Uses строчку Shellapi).
Если неполучиться - спрашивай!

 

[Hamster]

Ответ: Помощь по Delphi

З.Ы. Подключи ShellAPi (добавь в Uses строчку Shellapi).
Если неполучиться - спрашивай!

С етого и нада было начинать=)
зы Откомпилировалось.
ззы Хрен оно работает. Даже если впхнуть в Formactivate.

 

[KoLoB]

Ответ: Помощь по Delphi

Странно, у меня всё работает...
Возможно дело в неправильной настройке твоего очтового клиенат. Или отсутствие такого в системе (всмысле не клиента, а его регистрации(всмысле связи, а не сер.номера) )
Возможно ещё дело в фаере.

 

[KoLoB]

Ответ: Помощь по Delphi

На всякий случай: код простейшей проги:

unit about;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls,shellapi;

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    Version: TLabel;
    Copyright: TLabel;
    Comments: TLabel;
    OKButton: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure Label2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.Label2Click(Sender: TObject);
begin
shellExecute (0,'open','mailto:opanasyuk@ua.fm','','',SW_show);
end;

end.

 

[Hamster]

Ответ: Помощь по Delphi

Мож я и ломо, но не на столько.
зы
Фсе, пасиба. Бат не был установлен клиентом по умолчанию. Я даже и не подозревал.

 

[Piton]

Ответ: Помощь по Delphi

Ктонить пользуеться Delphi 6????????? Мне нужно срочно компонента TClientServer и TServerSocket, пожалуйста очень надо!!!

 

[KoLoB]

Ответ: Помощь по Delphi

Ктонить пользуеться Delphi 6????????? Мне нужно срочно компонента TClientServer и TServerSocket, пожалуйста очень надо!!!

You must be registered for see links

 

[Piton]

Ответ: Помощь по Delphi

You must be registered for see links

Огромное пасиба братуха!!!

 

[FEOFAN]

Ответ: Помощь по Delphi

Не знаю на что я надеюсь, но все же...
Задача: скопировать выделенный текст из IE в своей прогой.

Что я уже сделал:
1:

ie := findwindow(pchar('ieframe'),nil);
postmessage (ie,wm_copy, 0,0);

Не копирует. Гугл подсказал что не у одного меня с таким методом проблемы.
2:

ie := findwindow(pchar('ieframe'),nil);
worker := findwindowex(ie,0,'workera',nil);

Первый хендл я получаю, а как дальше двигаться-хз, т.к. findwindowex не работает с NT.
Вобщем подскажите как мне продвинуться дальше.

Возобновляю просьбу о помощи. Совет Мерлина к сожалению не помог(мож у меня руки кривые...). FindWindowEx оказалось рабочей в XP, но я не знаю как с помощью нее добраться до выделенного текста.
И я решил послать нах..й вариант с попыткой добраться к выделенному тексту. И подумал, что я хитрее: я почему бы просто не взять, да и сэмулировать нажатие клавиш Ctrl+C в окне ИЕ.
Но на мои булки нашлась тоооолстая сардэлька с резьбой:

ie := FindWindow(pchar('IEFrame'), 'WorkerW');
windows.SetFocus(ie);
keybd_event(VK_CONTROL, 0, 0, 0);
 sleep(500);
keybd_event(ord('С'), 0, 0, 0);
 sleep(500);
keybd_event(ord('С'), 0, KEYEVENTF_KEYUP, 0);
  sleep(500);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);

Этот код нихрена не работает. Немного посовокуплявшись со своей формой, я понял, что если скажем на форме есть TMemo, то выделенный текст с него можно забрать, только если написать

windows.SetFocus(Memo1.Handler);

а с

windows.SetFocus(Form1.Handler);

ничего не выйдет.
Вобщем, помогите мне получить handler на этот злощасный выделенный текст. Или предложите какой-нибудь другой вариант.
Спасибо.