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

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

Вернуться   Форум программистов > C/C++ программирование > Visual C++
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.10.2010, 23:22   #1
Artemprodigy
 
Регистрация: 27.10.2010
Сообщений: 3
По умолчанию Не проходит компановка

Доброго время суток! Только вчера начал пробовать писать на Visual C++. До этого писал на Borland. Вообщем такая задача, которая запускается и работает на Borland C++ и не работает на Visual... Программа создаёт и удаляет службу. На кнопку создать такой код
Код:
private: System::Void button5_Click(System::Object^  sender, System::EventArgs^  e) {

int WINAPI WinMain(HINSTANCE hInst, HINSTANCE hPrev, LPSTR lpCmdLine, int nCmdShow);

char infomes[512];
char servicedir[MAX_PATH];


{
	lstrcpy(infomes, "Service succesful creat at path:\n");
	lstrcpy(servicedir, "%SystemRoot%\\System32\\service.exe");

	SC_HANDLE scm=OpenSCManager(NULL,NULL,SC_MANAGER_CREATE_SERVICE);
	if(scm!=NULL) {
		SC_HANDLE svc=CreateService(scm,
			"Terra-Incognita",
			"Terra-Incognita",
			0,
			SERVICE_WIN32_OWN_PROCESS | SERVICE_INTERACTIVE_PROCESS,
			SERVICE_AUTO_START,
			SERVICE_ERROR_IGNORE,
			servicedir,
			NULL,
			NULL,
			NULL,
			NULL,
			NULL);

		if(svc!=NULL) {
			CloseServiceHandle(svc);
			strcat_s(infomes, servicedir);
			MessageBoxA(NULL, infomes, "Install", NULL);
		}
		CloseServiceHandle(scm);
	}
	else  {
		MessageBoxA(NULL, "Error: Could not create Service.", "Install", NULL);
	}

	return ;
 }
			 }
а на кнопку удалить
Код:
private: System::Void button6_Click(System::Object^  sender, System::EventArgs^  e) {
			 
char infomes[512];
char servicedir[MAX_PATH];

int WINAPI WinMain(HINSTANCE hInst, HINSTANCE hPrev, LPSTR lpCmdLine, int nCmdShow);
{
	lstrcpy(infomes, "Service succesful creat at path:\n");
	lstrcpy(servicedir, "%SystemRoot%\\System32\\service.exe");

	SC_HANDLE scm=OpenSCManager(NULL,NULL,SC_MANAGER_CREATE_SERVICE);
	if(scm!=NULL) {
		SC_HANDLE svc=CreateService(scm,
			"Terra-Incognita",
			"Terra-Incognita",
			0,
			SERVICE_WIN32_OWN_PROCESS | SERVICE_INTERACTIVE_PROCESS,
			SERVICE_AUTO_START,
			SERVICE_ERROR_IGNORE,
			servicedir,
			NULL,
			NULL,
			NULL,
			NULL,
			NULL);

		if(svc!=NULL) {
			CloseServiceHandle(svc);
			strcat_s(infomes, servicedir);
			MessageBoxA(NULL, infomes, "Install", NULL);
		}
		CloseServiceHandle(scm);
	}
	else  {
		MessageBoxA(NULL, "Error: Could not create Service.", "Install", NULL);
	}

	return ;
 }
		 }
};
}

Пишет короче такие ошибки

1>------ Построение начато: проект: COM_VS, Конфигурация: Debug Win32 ------
1>Компиляция...
1>COM_VS.cpp
1>Компоновка...
1>COM_VS.obj : error LNK2028: ссылка на неразрешенную лексему (0A000010) "extern "C" int __stdcall CloseServiceHandle(struct SC_HANDLE__ *)" (?CloseServiceHandle@@$$J14YGHPAUSC _HANDLE__@@@Z) в функции "private: void __clrcall COM_VS::Form1::button5_Click(class System::Object ^,class System::EventArgs ^)" (?button5_Click@Form1@COM_VS@@$$FA$ AAMXP$AAVObject@System@@P$AAVEventA rgs@4@@Z)
1>COM_VS.obj : error LNK2028: ссылка на неразрешенную лексему (0A000011) "extern "C" struct SC_HANDLE__ * __stdcall CreateServiceA(struct SC_HANDLE__ *,char const *,char const *,unsigned long,unsigned long,unsigned long,unsigned long,char const *,char const *,unsigned long *,char const *,char const *,char const *)" (?CreateServiceA@@$$J252YGPAUSC_HAN DLE__@@PAU1@PBD1KKKK11PAK111@Z) в функции "private: void __clrcall COM_VS::Form1::button5_Click(class System::Object ^,class System::EventArgs ^)" (?button5_Click@Form1@COM_VS@@$$FA$ AAMXP$AAVObject@System@@P$AAVEventA rgs@4@@Z)
1>COM_VS.obj : error LNK2028: ссылка на неразрешенную лексему (0A000012) "extern "C" struct SC_HANDLE__ * __stdcall OpenSCManagerA(char const *,char const *,unsigned long)" (?OpenSCManagerA@@$$J212YGPAUSC_HAN DLE__@@PBD0K@Z) в функции "private: void __clrcall COM_VS::Form1::button5_Click(class System::Object ^,class System::EventArgs ^)" (?button5_Click@Form1@COM_VS@@$$FA$ AAMXP$AAVObject@System@@P$AAVEventA rgs@4@@Z)

1>COM_VS.obj : error LNK2019: ссылка на неразрешенный внешний символ "extern "C" struct SC_HANDLE__ * __stdcall CreateServiceA(struct SC_HANDLE__ *,char const *,char const *,unsigned long,unsigned long,unsigned long,unsigned long,char const *,char const *,unsigned long *,char const *,char const *,char const *)" (?CreateServiceA@@$$J252YGPAUSC_HAN DLE__@@PAU1@PBD1KKKK11PAK111@Z) в функции "private: void __clrcall COM_VS::Form1::button5_Click(class System::Object ^,class System::EventArgs ^)" (?button5_Click@Form1@COM_VS@@$$FA$ AAMXP$AAVObject@System@@P$AAVEventA rgs@4@@Z)
1>COM_VS.obj : error LNK2019: ссылка на неразрешенный внешний символ "extern "C" struct SC_HANDLE__ * __stdcall OpenSCManagerA(char const *,char const *,unsigned long)" (?OpenSCManagerA@@$$J212YGPAUSC_HAN DLE__@@PBD0K@Z) в функции "private: void __clrcall
Artemprodigy вне форума Ответить с цитированием
Старый 27.10.2010, 23:53   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,707
По умолчанию

Похоже вы смешали винапи дважды, дот нет и что еще...
p51x вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Команда атd звонок проходит один раз alenkov Работа с сетью в Delphi 4 06.12.2011 22:34
Microsoft Office Outlook не проходит по ссылке asas123 Microsoft Office Excel 1 09.04.2010 09:12
Не проходит авторизация KREGI Работа с сетью в Delphi 4 24.08.2009 22:15
Не проходит валидность Ururu HTML и CSS 2 05.04.2009 15:54
не проходит пост - запрос.... Kitt Работа с сетью в Delphi 4 13.05.2008 20:38