Курский Форум

**Гость** » 14 июл 2006, 16:17:28

Сам давно прогю да делфе так что обсуждаем и задаем вопросы)

**Alex ilmarranen** » 14 июл 2006, 16:33:54

Хых… Во.. посоветуйте… Чивопъ такова общественно-полезного накодить… …
А то идей понимаете ли нету… ))

**Гость** » 14 июл 2006, 19:07:50

Как сделать, чтобы моя служба на сервере (серверная часть) копировала на клиентские машины мою другую программу с граф. интерфейсом (клиентская часть), а затем удаленно ее запускала там? На клиентских машинах моего программного обеспечения нету изначально, его туда копирует серверная часть, а потом запускает удаленно. Может можно RPC заюзать?

**Гость** » 21 июл 2006, 14:34:49

FORTIS.EGO!ST писал(а):Как сделать…

Ну дял копирования проги на машины если есть доступ к папке назначения можно в принцыпе пользоваться стандартными функциями дял работы с файлами в делфе с указанием путей вида "//comp01/mygrog"
а вот с запуском даж не наю не заморачивался по этому поводу)
можно попробовать прописать прогу в реестре в авто запуск и перезагрузить удаленный комп короче ищи инфу по удаленному дотупу к реестру)

**Гость** » 22 июл 2006, 22:20:35

по удаленному дотупу к реестру

ты еще скажи без ведома юзера

**Гость** » 23 июл 2006, 12:57:29

Ushk@ писал(а):ты еще скажи без ведома юзера

ну малоли вдруг он на фирме работает и сетью управляет))
народ давайте по теме что нить писать..)) поактивнее)

**Гость** » 05 авг 2006, 16:00:52

Как заставить программу копировать саму себя куда надо ??? …

Нужен пример исходного кода с описанием…

**Гость** » 06 авг 2006, 12:57:08

копируется так же как и любой файл:

uses ShellApi; //обязательно добавить

function CopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;
begin
f.wFunc
F.Wnd := 0;
F.wFunc := FO_COPY;
FromFile:=FromFile+#0;
F.pFrom:=pchar(FromFile);
ToDir:=ToDir+#0;
F.pTo:=pchar(ToDir);
F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
result:=ShFileOperation(F) = 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:='c:'; //путь куда будит копироваться файл
if OpenDialog1.Execute then
if not CopyFile(application.ExeName,s) then
ShowMessage('Ошибка копирования');
end;

будут вопросы или чтото непонятно спрашивай

**Гость** » 10 авг 2006, 08:32:43

Как узнать в каком Каталоге уcтановлена Винда (9x/2k/xp)??

**Гость** » 10 авг 2006, 14:13:28

[quote="Hellsing"][/quote]

procedure TForm1.Button1Click(Sender: TObject);
var p:PChar;
begin
GetMem(p,255); //выделении пямяти под переменную
GetWindowsDirectory(p,254);//собственно функция которая созвращает массив символов с путом к каталогу винды
label1.Caption:=p;//все поняли)
Freemem(p);//очистка памяти под p (вообще не обязательно но иногда если не писать возникает ошибка утечка памяти)
end;

**IDen** » 11 авг 2006, 16:42:22

А с комментариями можно и первый и второй прюмер …

Так а по поводу ICQ и Delphi у тебя ничего нет ?

**Гость** » 11 авг 2006, 17:04:15

IDen писал(а):Так а по поводу ICQ и Delphi у тебя ничего нет ?

есть готовая компонента в которой реализовал 7 ой протокол) могу скинуть

а коменты щас добавлю смотреть выше)

**Гость** » 12 авг 2006, 08:14:36

Ted писал(а):
IDen писал(а):Так а по поводу ICQ и Delphi у тебя ничего нет ?

есть готовая компонента в которой реализовал 7 ой протокол) могу скинуть

а коменты щас добавлю смотреть выше)

Кидай усе с комментариями ((много весит)) ) ….

**Гость** » 20 авг 2006, 14:05:39

Как отследить за событиями Windows XP: LOGON, LOGOFF, STANDBY и д.р.
Как узнать имя активного пользователя и имена всех авторизованых?

**Alex ilmarranen** » 19 сен 2006, 11:41:39

Какъ поменять аттрибуты создваемыхъ файловъ?

**Гость** » 28 сен 2006, 16:38:53

Alex ilmarranen писал(а):Какъ поменять аттрибуты создваемыхъ файловъ?

А что старые паскалевские процедуры не работают?
GETFattr - получить атрибуты
SETFattr - установить…

НУ попробуй FileGetAttr(имя файла)
и FileSetAttr(имя файла)

**Alex ilmarranen** » 29 сен 2006, 14:28:07

Дада… Нашёлъ… )))

У мя тутъ листингъ проги съ информацией о машине есть… Можетъ тамъ есть то, что те нужно(хотя врядле…)…? Выложить?

**Гость** » 03 окт 2006, 15:23:24

Народ, подскажите плиз, как поставить картинку, например 'pic1.bmp', как фоновый рисунок.

**Anri** » 05 окт 2006, 23:47:12

как оследить системную очередь сообщений?
обратиться к потоку в Н-м процессе?
Отослать "клик" клавише в др. окне?
Как достучаться до 0-го кольца? *HOHO*

ещё навалить вопросов?

**Alex ilmarranen** » 23 окт 2006, 15:28:05

2Sir. Milton для начала куда?

ЗначеТъ такъ…

ИмееЦо стандартная процедура(для нетипизированныхъ файловъ) BlockRead(F,Buf,SizeBuf)… Где вроде бы всё понятно… Да вотъ только минимальный размер SizeBuf = word, то есь 4 байта… А нуно побайтно… Чё делать…? Нетипизированные файлы - это принципиально… Причёмъ структура файла неизвестна… точнее произвольна… Т.к. задавалась не мной…

Help!

**Гость** » 24 окт 2006, 22:08:59

Sir. Milton пишет:

Народ, подскажите плиз, как поставить картинку, например 'pic1.bmp', как фоновый рисунок.

Фоновый рисунок рабочего стола:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
SystemParametersInfo(SPI_SETDESKWALLPAPER,
0,
PChar(OpenDialog1.FileName),
SPIF_SENDWININICHANGE);
end;

Не забудь кинуть на форму OpenDialog.
Работает с файлами *.bmp

**zhenyanet** » 25 окт 2006, 07:32:31

интересует как на дельфи сделать, что бы прога сама распазновала картинку и сама ее вводила на примере би или мтс если знаешь как,напиши?

**Anri** » 25 окт 2006, 20:27:39

zhenyanet писал(а):интересует как на дельфи сделать, что бы прога сама распазновала картинку и сама ее вводила на примере би или мтс если знаешь как,напиши?

а можно вопрос задать, чтоб его понятно стало? кто такой би и мтс? о каких примерах идёт речь?

**Alex ilmarranen** » 25 окт 2006, 22:30:16

2Anri ИмееЦо ввиду распознавание картинокъ, текстъ на которыхъ при отправке смсъ требуютъ на сайтахъ Билайна и МТС…

**zhenyanet** » 26 окт 2006, 14:07:44

Alex ilmarranen писал(а):2Anri ИмееЦо ввиду распознавание картинокъ, текстъ на которыхъ при отправке смсъ требуютъ на сайтахъ Билайна и МТС…

да, именно так