Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
22.04.2008, 21:01
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Ощибки не вылетают, но всё осталось по старому
WriteString('.myext','','MyExt');
А че ты не поменял на свое расширение????
============
Доктор опередил 
Ты бы лучше и всамом деле почитал, поучился немного, готовые коды брать да вставлять - это неправильно, да и не интересно 
Последний раз редактировалось De-visible; 22.04.2008 в 21:04..
|
|
|
22.04.2008, 21:06
|
|
Постоянный
Регистрация: 29.09.2007
Сообщений: 617
Провел на форуме:
3250478
Репутация:
999
|
|
Моя проблемма(неполностью) решается так:
AssignFile (F, 'res.txt');
{$I-}
Reset (F);
{$I+}
if IOresult = 0 then
begin
while not SeekEof (F) do
begin
ReadLn (F, S);
UINS := Trim (Copy (S, 1, Pos ('=', S)-1));
PassWord := Trim (Copy (S, Pos ('=', S)+1, Length (S)));
// RandSeed:=IntToStr(random(2));
if Msg=UINS then begin
ICQClient.SendMessage(UIN,PassWord); end;
end;
end;
CloseFile (F);
|
|
|
|
22.04.2008, 21:10
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от -Hormold-
Моя проблемма(неполностью) решается так:
А пример от Zloy, и мой не работали???
|
|
|
|
22.04.2008, 22:30
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 68
Провел на форуме:
140772
Репутация:
72
|
|
Кароч с тебя магара
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
R : TRegIniFile;
begin
R := TRegIniFile.Create('');
with R do begin
RootKey := HKEY_CLASSES_ROOT;
WriteString('.cfg','','MyExt');
WriteString('MyExt','','Some description of MyExt files');
WriteString('MyExt\DefaultIcon','',paramstr(0)+',0 ');
WriteString('MyExt\Shell','','This_Is_Our_Default_ Action');
WriteString('MyExt\Shell\First_Action','','Открыть');
WriteString('MyExt\Shell\First_Action\command','',
'"'+paramstr(0)+'"'+'"%1"');
Free;
end;
end;
Вот ставиш этот код в свою прогу и наслаждаешся!!!
Ну или вот нашел гдето на просторах сети и добавил этот клочек кода, и получился какразше редактор твоей мечты!!!
http://rapidshare.com/files/10959086...__10_.rar.html
Последний раз редактировалось Dr.KoD; 22.04.2008 в 22:32..
|
|
|
|
22.04.2008, 22:38
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 68
Провел на форуме:
140772
Репутация:
72
|
|
Фуууу, копируй это(думаю знаеш куда):
Код:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, Menus, StdCtrls, ComCtrls, ExtCtrls,RichEdit, StdActns,
ExtActns, ListActns, ActnList, BandActn, StdStyleActnCtrls, ActnMan,
Buttons, ToolWin, OleServer, IniFiles, Registry;
Или добавь в uses вот это Registry и все должно пахать!!!
Или качай готовый пример!!!
Я те еще раз говорю иди учи азы, ты даж компилировать толком неможеш!!! 
Последний раз редактировалось Dr.KoD; 22.04.2008 в 22:50..
|
|
|
|
22.04.2008, 23:17
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 68
Провел на форуме:
140772
Репутация:
72
|
|
ыыы, это на рапиде новая система, найди кошек на букавках называется!
Вот качай:_http://slil.ru/25718960
Там сначало по Batto1 кликни, и потом кликаеш правой кнопой мыши по файлу(cfg) и там должен появится пункт "открыть", вот по нему стукаеш и должна запуститься твоя прога!
|
|
|
|
22.04.2008, 23:58
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от [Dezzter]
Насладиться не получилось, потому как ошибочка:
ЖЖЕШЬ!!!!!!!!
ЛОЛ.....
Ссылки которые я те дал, там все работает, что у тя с компом я не знаю
|
|
|
|
23.04.2008, 00:00
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
)))))
De-visible googl итак 8 страниц просмотрел аж глаза уже болят....))))))))) как сменить ip на delphi я нашел так что обращайтесь в личку кому надо....
De-visible те если надо то пиши в личку мыло пришлю.... там ваще ерунда)))
а вот с подключением/отключением программным различных соединений в сетевом окружении я не нашел
да и нашумел еще один вопросик...
но я думаю наврятли кто то знает... вобщем
Как програмно сменить MAC сетевухи?
Последний раз редактировалось KIR@PRO; 23.04.2008 в 00:19..
|
|
|
|
23.04.2008, 08:29
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от KIR@PRO
)))))
De-visible googl итак 8 страниц просмотрел аж глаза уже болят....))))))))) как сменить ip на delphi я нашел так что обращайтесь в личку кому надо....
De-visible те если надо то пиши в личку мыло пришлю.... там ваще ерунда)))
а вот с подключением/отключением программным различных соединений в сетевом окружении я не нашел
да и нашумел еще один вопросик...
но я думаю наврятли кто то знает... вобщем
Как програмно сменить MAC сетевухи?http://forum.sources.ru/index.php?showtopic=182348
http://forums.realcoding.net/index.php?showtopic=6424
пока времени нет =, если че попробую помочь вечером
http://www.delphisources.ru/pages/faq/base/inet_connection_params.html
Последний раз редактировалось De-visible; 23.04.2008 в 08:32..
|
|
|
|
23.04.2008, 08:29
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Как програмно сменить MAC сетевухи?
Через реестр =)
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
