[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Глупый вопрос задаю... Но как сделать на делфи лоадер библиотеке dll ??
Напишите код пожайлуста =)

 

создай новый проект , допиши в uses ShellApi

и вставь строчку в код -

ShellExecute(0,'open',PCHAR(cmd),nil,nil,SW_SHOWNORMAL);


где cmd - rundll32 <полный путь и имя библиотеки>
если библиотека зарегестрирована в системе, то можно указать просто <имя>

 

создай новый проект , допиши в uses ShellApi

и вставь строчку в код -

ShellExecute(0,'open',PCHAR(cmd),nil,nil,SW_SHOWNORMAL);

где cmd - rundll32 <полный путь и имя библиотеки>
если библиотека зарегестрирована в системе, то можно указать просто <имя>

 

hDll := LoadLibrary('you_dll.dll');

-----

ShellExecute(Handle, 'open', PChar(S + 'brcc32.exe.lnk'), nil, s, SW_RESTORE);

 

что-то ничего не выходит.. пишу так:

Code:

s:=PChar('C:\Program Files\Borland\Delphi7\Projects\A');
case
ShellExecute(Handle, 'open', PChar(s+'brcc32.exe.lnk'), nil, s, SW_RESTORE) of
2: ShowMessage('wrong');
end;

все равно ничего не выходит.. сообщение 'wrong' уже не вылезает, путь к файлу верный, почему же тогда ярлык не запускается?! неужели эту проблему решить невозможно?! глупо, что проект завис на такой мелочи..

 

var
S: PAnsiChar;
begin
S := PChar ('C:\Program Files\Borland\Delphi7\Projects\A');
case ShellExecute(Handle, 'open', PChar (S+'\brcc32.exe.lnk'), nil, s, SW_RESTORE) of
2: ShowMessage('wrong');
end;

BackSlash поставь. Так должно работать. По крайней мере у меня всё работает.

 

Смысл тогда преобразование делать если тип PAnsiChar

Code:

S: PAnsiChar;
begin
S := 'C:\Program Files\Borland\Delphi7\Projects\A';

 

проблема зашла в такой край:
ярлыки на всякую муть - открывает..
ярлыки на любой экзешник - хрен!

что бы это значило?!?!

 

Хэндл в nil ставь для exe'шников :
ShellExecute(0, nil, 'EXE.lnk', nil, nil, SW_SHOWNORMAL);

 

для Pir4tt:

СПАСИБО!!! ну, наконец-то вот так заработало:

Code:

ShellExecute(Handle, nil, PChar('a.lnk'), nil, s, SW_RESTORE)

УРА!!! )

 

ктонить может подкинуть сорец сокс проксика... м-м-м ??
найти не могу везде тока http

 

Исходный код программы FreeCap
http://www.freecap.ru/files/freecap_3.18-src.zip

 

типо легких путей не ищем чтоле ... ))

 

А я его и не предлогал. Код автора я почти не менял.

 

Аааа вот ещё вопросик: как зделать что бы на кнопочку нажимаешь ну на любую батон как поставиш а он открывает любой Ie и заход на этот сайт??

 

Что не нравится. Ты попросил сокс тебе дали сокс. Че еще?

 

ShellExecute - ранее обсуждали передестни страницу.


uses ShellAPI;

ShellExecute(Handle, 'open', 'forum.antichat.ru', NIL, NIL, SW_SHOW);

 

собствена если ты не заметил, я просил сокс прокси сервер..
а ты мне дал кучу всего ищи копай..
сорцы фрикапа у меня есть...
ты думаешь если я сам написать не могу это..
то по чему думаешь что из груды всякого хлама я смогу это выдернуть Оо

 

Пожалуйста

SOCKS5
freecap_3.18-src\src\freecap\Socks5Proxy.pas
SOCKS4
freecap_3.18-src\src\freecap\Socks4Proxy.pas

Там все методы организованы

 

Спс.. Ну с dll'кой не получается... Пишит типо не знает такой код ! И надо что так что бы открывалась типо на проге кнопка лоад на неё нажимаеш и прога запускает тот длл который с ней в одной папке.. Например:
1.exe и 1.dll , а вот если у длл будет другое имя то exe будет ругатся типо dll not found. Вот такой код скажите плз