Программирование на Delphi

CPU
Попробуй - Button1.Click
Мож прокатит... %)

Сообщение отредактировал Blackcode: 03 October 2005 - 22:59

Blackcode, не прокатит надо чето с Senderom, по-моему, сделать, а что!? Ни в одной своей книге не нашел.

УРА! разобрался! Как всегда проще простого за енто надо по дРинков 10 выпить           ®  
Всего лишь перед именем процедуры надо указать кому она "принадлежит" например форме
form1.Button1.Click; и все, выполняется тело процедуры Закончились времена копирования участков кода   

А вот про параматр Sender так и не понял ничего.
Примерчик напишите про него, про ентот SENDER.

Сообщение отредактировал CPU: 04 October 2005 - 00:18

CPU
Sender - тип TObject, т.е. класс объекта.
Поищи примеры на Drag'n'Drop - всё сам поймёшь.  

Подскажите, у меня прграмма для выключения компа на виндовз 98 (дельфи 6), а на ХР не работает, какая апи в ХР это делает (выключение компа) и какие параметры передаються?

открываешь делфи
(дальше только тем кто знает паскаль) :-)
и вперед
с помощью хелпа встроеного
вот и все чудеса

я так восемь курсовых написал!

не поможите ребята !*???

Galaif (15.11.2005 - 01:37) писал:

Спасибо за совет, сам бы не догадался.
К сведению, я плохо знаю английский, а во вторых именно по хелпу я и писал, но по хелпу только в 98 винде работает.

Надеюсь тебе так же помогут, когда тебе хелп не поможет

Для всех остальных:
procedure off_station;
var
phwnd: THandle;
tpiv, prstr: TTokenPrivileges;
flg: DWORD;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, phwnd);
LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tpriv.Privileges[0].Luid);
tpriv.PrivilegeCount := 1;
tpriv.Privileges[0].Attributes := 2;
AdjustTokenPrivileges(phwnd, FALSE, tpriv, SizeOf(prstr), prstr, flg);
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;

Честно признаюсь, сам еще не прверял этот код, небыло времени.
Но насколько я понимаю суть в том, что в ХР нужно предусматривать привилегии пользователя...

Ребята, подскажите, как трудно перейти с Delphi на Visual C?