Не работает простой код Delphi??? - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Бесплатные прокси уже в Telegram
Все инфопродукты и приватная информация бесплатно
Старый 22.11.2011, 12:53   #1 (permalink)
Electro Style (:
 
Аватар для Rastayan
 
Регистрация: 27.01.2010
Сообщений: 232
Member ID: 6155

Репутация: 550
Репутация: 550
Сказал(а) спасибо: 211
Поблагодарили 280 раз(а) в 152 сообщениях
Топикстартер (автор темы) По умолчанию Не работает простой код Delphi???

При компиляции на 7 версии Delphi всё работает даже с сокращением PChar а в CodeGear RAD Studio 2009 lite компилируется там где PChar ошибка исправляю на PAnsiChar всё вроде нормально но при нажатии кнопки ни чего не происходит. В чём может быть проблема может кто сталкивался???

код:
PHP код:
unit Unit1;

interface

uses
  Windows
MessagesShellAPISysUtilsVariantsClassesGraphicsControlsForms,
  
DialogsStdCtrlsExtCtrls;

type
  TForm1 
= class(TForm)
    
Edit1TEdit;
    
Button1TButton;
    
procedure Button1Click(SenderTObject);

  private
    { Private 
declarations }
  public
    { Public 
declarations }
  
end;

var
  
Form1TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(SenderTObject);

var

i:string;

begin

i
:=edit1.text// тут команда ipconfig

WinExec (PAnsiChar('cmd /u /c '+i+' / > Log.txt'), SW_Show);

end;


end
Rastayan вне форума   Ответить с цитированием
Старый 22.11.2011, 14:48   #2 (permalink)
HTTP
 
Аватар для WinDos
 
Регистрация: 30.09.2010
Сообщений: 23
Member ID: 9513
ICQ 936922

Репутация: 79
Репутация: 79
Сказал(а) спасибо: 13
Поблагодарили 51 раз(а) в 18 сообщениях
По умолчанию Re: Не работает простой код Delphi???

Не знаю нужно тебе еще или нет, но я бы сделал так:

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(Handle, 'open', pchar(Edit1.Text), nil, nil, sw_show);
end;
WinDos вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 22.11.2011, 15:00   #3 (permalink)
Programming
 
Аватар для Krebs
 
Регистрация: 09.06.2010
Адрес: Ыть
Сообщений: 398
Member ID: 8063

Репутация: 885
Репутация: 885
Сказал(а) спасибо: 1,604
Поблагодарили 465 раз(а) в 260 сообщениях
По умолчанию Re: Не работает простой код Delphi???

WinDos я тоже это хотел посоветовать, но вот ему надо ещё чтобы лог в текстовый файл сохранился(это я не знаю как реализовать)!
__________________
База наш дом!
Krebs вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 22.11.2011, 18:19   #4 (permalink)
VPN
 
Аватар для C00LPack
 
Регистрация: 11.01.2011
Сообщений: 324
Member ID: 11190
ICQ 364867

Репутация: 844
Репутация: 844
Сказал(а) спасибо: 166
Поблагодарили 548 раз(а) в 280 сообщениях
По умолчанию Re: Не работает простой код Delphi???

в твоем случае будет так
PHP код:
WinExec(PChar('cmd /c ' PChar(edit1.text) + ' >> Log.txt'), SW_Show); 
я же никогда не юзаю winexec, иногда глючит там где не надо. так что отвыкай от ереси
PHP код:
ShellExecute(0'open''cmd.exe''/c ' PChar(edit1.text) + ' >> Log.txt'nilSW_SHOWNORMAL); 

Последний раз редактировалось C00LPack; 22.11.2011 в 18:26.
C00LPack вне форума   Ответить с цитированием
3 пользователя(ей) сказали cпасибо:
Старый 22.11.2011, 18:56   #5 (permalink)
Programming
 
Аватар для Krebs
 
Регистрация: 09.06.2010
Адрес: Ыть
Сообщений: 398
Member ID: 8063

Репутация: 885
Репутация: 885
Сказал(а) спасибо: 1,604
Поблагодарили 465 раз(а) в 260 сообщениях
По умолчанию Re: Не работает простой код Delphi???

C00LPack в delphi xe and delphi CodeGear RAD Studio 2010 и CodeGear RAD Studio 2009 Тип должен быть не PChar а PAnsiChar, иначе ошибка! Так человеку надо реализовать в CodeGear RAD Studio 2009!
__________________
База наш дом!
Krebs вне форума   Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
Старый 22.11.2011, 18:58   #6 (permalink)
HTTP
 
Аватар для WinDos
 
Регистрация: 30.09.2010
Сообщений: 23
Member ID: 9513
ICQ 936922

Репутация: 79
Репутация: 79
Сказал(а) спасибо: 13
Поблагодарили 51 раз(а) в 18 сообщениях
По умолчанию Re: Не работает простой код Delphi???

C00LPack,
Он написал что ему для Rad 2009 нужно и я с тобой согласен WinExec, довольно глючный =).

Вот то, как в итоге должно получиться:
Код:
ShellExecute(0, 'open', 'cmd.exe', PWideChar('/c ' + edit1.text + ' >> Log.txt'), nil, SW_SHOWNORMAL);
WinDos вне форума   Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
Старый 22.11.2011, 19:05   #7 (permalink)
VPN
 
Аватар для C00LPack
 
Регистрация: 11.01.2011
Сообщений: 324
Member ID: 11190
ICQ 364867

Репутация: 844
Репутация: 844
Сказал(а) спасибо: 166
Поблагодарили 548 раз(а) в 280 сообщениях
По умолчанию Re: Не работает простой код Delphi???

не в обиду некоторым, но эти "рад студиа" я считаю ересью.
C00LPack вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 25.11.2011, 14:08   #8 (permalink)
Electro Style (:
 
Аватар для Rastayan
 
Регистрация: 27.01.2010
Сообщений: 232
Member ID: 6155

Репутация: 550
Репутация: 550
Сказал(а) спасибо: 211
Поблагодарили 280 раз(а) в 152 сообщениях
Топикстартер (автор темы) По умолчанию Re: Не работает простой код Delphi???

Пока инета под рукой особо не было я вот так реализовал: (:
Спасибо всем за подсказки!!!
PHP код:
var
i,u:string;
begin
i
:=edit1.text// где i и есть ipconfig
:= '/c '+i+' /> Log.txt';

ShellExecute(0,'open','cmd.exe',PChar(u),nil,sw_shownormal); //тут вроде всёравно PChar или PAnsiChar 
Rastayan вне форума   Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
MailRegistrator - простой реггер Mail.ru dpxaker SOFT (Варезник) 6 20.07.2011 19:20
Простой брут дедиков для новичков Krukas Брут дедиков, способы брута, нужный софт 15 29.04.2011 17:11
DChecker - простой чекер дедиков dpxaker SOFT (Варезник) 12 18.12.2010 07:44
[Продажа] 2 cyber-cafe аккаунта + 1 простой аккаунт (Steam) Spycrab Разное 0 10.08.2010 16:59
Простой брут аси kveresov Флейм 3 30.04.2010 09:54




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.