|
Вопрос # 5 110/ вопрос закрыт / |
|
Здравствуйте! Кто нибудь может перевести код с языка Си на делфи
Вот Исходник!
Приложение: Переключить в обычный режим- #include <windows.h>
-
- BOOL __stdcall EnumProc(HWND hWnd, LPARAM lParam)
- {
- static int a=0;
- WCHAR * text[]={L"imhere@gmail.com",L"@gmail.com"};
- WCHAR clsName[MAX_CLASS_NAME];
-
- if(GetClassName(hWnd,clsName,sizeof(clsName)/2))
- {
- if(!wcscmp(L"ComboBox",clsName))
- {
- SendMessageW(hWnd,CB_INSERTSTRING,0,
- (LPARAM)text[(a%=2)++]);
- SendMessageW(hWnd,CB_SETCURSEL,0,0);
- }
- }
- return TRUE;
- }
-
- int main()
- {
-
- if(!hDlg)
- return -1;
- EnumChildWindows(hDlg,EnumProc,0);
- }
 |
Вопрос задал: Kazi (статус: Посетитель)
Вопрос отправлен: 21 марта 2011, 14:48
Состояние вопроса: закрыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 10; последнее сообщение — 21 марта 2011, 19:38; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 21 марта 2011, 14:53 [#1]:
Чо, никак не можешь справиться с мейлруагентом?
Я всё никак не пойму, нафига тебе это надо? С сервисом мэйлру можно работать напрямую из Delphi, компонент есть, вроде бы.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kazi (статус: Посетитель), 21 марта 2011, 15:09 [#3]:
Этот код нашел в инете, жаль что оно было на Си, может поможете его перевести!
Cr@G!N |{GZ
|
|
|
min@y™ (статус: Доктор наук), 21 марта 2011, 15:25 [#4]:
Цитата (Kazi):
Этот код нашел в инете, жаль что оно было на Си
Ты, хоть, знаешь, что делает этот код?
Цитата (Kazi):
может поможете его перевести!
Чем помочь-то? Что не получается?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kazi (статус: Посетитель), 21 марта 2011, 15:38 [#5]:
<quote>Чем помочь-то? Что не получается?</quote>
Нужен код на делфи!!!
<quote>Ты, хоть, знаешь, что делает этот код?</quote>
Да отправляет данные в combobox на агенте!
Cr@G!N |{GZ
|
|
|
min@y™ (статус: Доктор наук), 21 марта 2011, 15:53 [#6]:
Цитата (Kazi):
Нужен код на делфи!!!
Ха! Это не есть "помочь перевести", это ПРОСТО перевести, а не помочь.
Цитата (Kazi):
Да отправляет данные в combobox на агенте!
Неправда. Этот код ищет в окна 2 (два) комбобокса и вставляет в них строки "imhere@gmail.com" и "@gmail.com" соответственно. Причём тут мейлруагент?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kazi (статус: Посетитель), 21 марта 2011, 16:42 [#7]:
HWND hDlg=FindWindow ( NULL, L"Текст нужного окна");
если добавить строчку "аторизация пользователя" сюда ^ то будет связано с майлру агентом!
Cr@G!N |{GZ
|
|
|
min@y™ (статус: Доктор наук), 21 марта 2011, 17:01 [#8]:
Цитата (Kazi):
HWND hDlg=FindWindow ( NULL, L"Текст нужного окна"); если добавить строчку "аторизация пользователя" сюда ^ то будет связано с майлру агентом!
В окне авторизации сколько комбобоксов?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kazi (статус: Посетитель), 21 марта 2011, 17:32 [#9]:
два комбобокса 1-й Имя пользователя 2-й список mail.ru, list.ru и т.д.
Cr@G!N |{GZ
|
|
|
min@y™ (статус: Доктор наук), 21 марта 2011, 19:38 [#10]:
Цитата (Kazi):
два комбобокса 1-й Имя пользователя 2-й список mail.ru, list.ru и т.д.
Далее... Ты передаёшь в функцию имя класса "ComboBox". Но не факт, что это окно имеет именно такое имя класса. Если агент написан на Delphi, то имя класса может быть каким угодно, хоть "TComboBox". Тбе надо было это узнать заранее.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
31 января 2013, 16:05: Вопрос закрыт (решение принял автор вопроса — Kazi): Ответ найден!
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
