ShIvADeSt
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: Оно даже работать не будет.........
WinExec <- для старых виндов, под NT надо юзать CreateProcess..... |
Ну это ты загнул. Все будет работать, просто CreateProcess более гибок (но этот сабж и спор что лучше уже обсуждался в другом топике) а вот пример NetSend
type
TNetMessageBufferSend = function(servername, msgname, fromname: LPCWSTR; buf: POINTER; buflen: DWORD): DWORD; stdcall;
var
NetMessageBufferSend: TNetMessageBufferSend = nil;
function NetSendMsg(name_, text_: string): DWORD;
var
msgname: WideString;
msgtext: WideString;
begin
while name_[1] = '\' do delete(name_, 1, 1);
msgname := WideString(name_);
msgtext := WideString(text_);
Result := NetMessageBufferSend(nil, PWideChar(msgname), nil, PWideChar(msgtext), sizeof(WideChar) * Length(msgtext));
end;
----------
И создал Бог женщину... Существо получилось злобное, но забавное... |
|
