И так, все по сабжу... Хочу создать приложение, чтобы оно запускало командную строку с некоторыми командами. И тут выходит несколько загвоздок.
1) Я никак не могу найти команду запуска файла/командной строки
2) Искал код приема/передачи между консолью и GUI, нашел, но ничего не понял. Лежит тут. Ничего собственно не понял...
3) Если не сложно то подскажите автора хорошей книги по дельфи, чтобы с диском там, или еще че, ну вообщем чтобы хороший учебник был, а то достали электронные издания...
4) Не умею пользовать ся функциями, наверное не смог разобраться в коде, вообщем помогите пожалуйста. А лучше ответьте на все вопросы и дайте код
Спасибо.

во-первых читай правила один вопрос один топ
по пунктам
1 - WinExec(), ShellExecute()
2 - ваще не понял чё ты хочешь
3 - авторов хороших дофига ! есть раздел литературы на форуме иди туда смотри что те нравится и потом мож такуюже книгу и в реале купить!
4 - опять не понял какими ся функциями? это форум по дэлфи во-первых а во-вторых чё ими пользоватся что именно не получается?

это наверное:

Код

function GetConsoleOutput(const Command: string; var Output, Errors: TStringList): Boolean; var   StartupInfo: TStartupInfo;   ProcessInfo: TProcessInformation;   SecurityAttr: TSecurityAttributes;   PipeOutputRead: THandle;   PipeOutputWrite: THandle;   PipeErrorsRead: THandle;   PipeErrorsWrite: THandle;   Succeed: Boolean;   Buffer: array [0..255] of Char;   NumberOfBytesRead: DWORD;   Stream: TMemoryStream; begin   FillChar(ProcessInfo, SizeOf(TProcessInformation), 0);   FillChar(SecurityAttr, SizeOf(TSecurityAttributes), 0);   SecurityAttr.nLength := SizeOf(SecurityAttr);   SecurityAttr.bInheritHandle := true;   SecurityAttr.lpSecurityDescriptor := nil;   CreatePipe(PipeOutputRead, PipeOutputWrite, @SecurityAttr, 0);   CreatePipe(PipeErrorsRead, PipeErrorsWrite, @SecurityAttr, 0);   FillChar(StartupInfo, SizeOf(TStartupInfo), 0);   StartupInfo.cb:=SizeOf(StartupInfo);   StartupInfo.hStdInput := 0;   StartupInfo.hStdOutput := PipeOutputWrite;   StartupInfo.hStdError := PipeErrorsWrite;   StartupInfo.wShowWindow := sw_Hide;   StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;   if  CreateProcess(nil, PChar(command), nil, nil, true,   CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil,   StartupInfo, ProcessInfo) then begin     result:=true;     CloseHandle(PipeOutputWrite);     CloseHandle(PipeErrorsWrite);     Stream := TMemoryStream.Create;     try       while true do begin         succeed := ReadFile(PipeOutputRead, Buffer, 255, NumberOfBytesRead, nil);         if not succeed then break;         Stream.Write(Buffer, NumberOfBytesRead);       end;       Stream.Position := 0;       Output.LoadFromStream(Stream);     finally       Stream.Free;     end;     CloseHandle(PipeOutputRead);     Stream := TMemoryStream.Create;     try       while true do begin         succeed := ReadFile(PipeErrorsRead, Buffer, 255, NumberOfBytesRead, nil);         if not succeed then break;         Stream.Write(Buffer, NumberOfBytesRead);       end;       Stream.Position := 0;       Errors.LoadFromStream(Stream);     finally       Stream.Free;     end;     CloseHandle(PipeErrorsRead);     WaitForSingleObject(ProcessInfo.hProcess, INFINITE);     CloseHandle(ProcessInfo.hProcess);   end else begin     result:=false;     CloseHandle(PipeOutputRead);     CloseHandle(PipeOutputWrite);     CloseHandle(PipeErrorsRead);     CloseHandle(PipeErrorsWrite);   end; end;

Короче юный вирусо писатель.
Стучи в 66550088 я тебе дам исходник проги которая забивает консоль на определенный порт и сидит.

Цитата

это наверное: Код function GetConsoleOutput(const Command: string; var Output, Errors: TStringList): Boolean; var   StartupInfo: TStartupInfo;   ProcessInfo: TProcessInformation;   SecurityAttr: TSecurityAttributes;   PipeOutputRead: THandle;   PipeOutputWrite: THandle;   PipeErrorsRead: THandle;   PipeErrorsWrite: THandle;   Succeed: Boolean;   Buffer: array [0..255] of Char;   NumberOfBytesRead: DWORD;   Stream: TMemoryStream; begin   FillChar(ProcessInfo, SizeOf(TProcessInformation), 0);   FillChar(SecurityAttr, SizeOf(TSecurityAttributes), 0);   SecurityAttr.nLength := SizeOf(SecurityAttr);   SecurityAttr.bInheritHandle := true;   SecurityAttr.lpSecurityDescriptor := nil;   CreatePipe(PipeOutputRead, PipeOutputWrite, @SecurityAttr, 0);   CreatePipe(PipeErrorsRead, PipeErrorsWrite, @SecurityAttr, 0);   FillChar(StartupInfo, SizeOf(TStartupInfo), 0);   StartupInfo.cb:=SizeOf(StartupInfo);   StartupInfo.hStdInput := 0;   StartupInfo.hStdOutput := PipeOutputWrite;   StartupInfo.hStdError := PipeErrorsWrite;   StartupInfo.wShowWindow := sw_Hide;   StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;   if  CreateProcess(nil, PChar(command), nil, nil, true,   CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil,   StartupInfo, ProcessInfo) then begin     result:=true;     CloseHandle(PipeOutputWrite);     CloseHandle(PipeErrorsWrite);     Stream := TMemoryStream.Create;     try       while true do begin         succeed := ReadFile(PipeOutputRead, Buffer, 255, NumberOfBytesRead, nil);         if not succeed then break;         Stream.Write(Buffer, NumberOfBytesRead);       end;       Stream.Position := 0;       Output.LoadFromStream(Stream);     finally       Stream.Free;     end;     CloseHandle(PipeOutputRead);     Stream := TMemoryStream.Create;     try       while true do begin         succeed := ReadFile(PipeErrorsRead, Buffer, 255, NumberOfBytesRead, nil);         if not succeed then break;         Stream.Write(Buffer, NumberOfBytesRead);       end;       Stream.Position := 0;       Errors.LoadFromStream(Stream);     finally       Stream.Free;     end;     CloseHandle(PipeErrorsRead);     WaitForSingleObject(ProcessInfo.hProcess, INFINITE);     CloseHandle(ProcessInfo.hProcess);   end else begin     result:=false;     CloseHandle(PipeOutputRead);     CloseHandle(PipeOutputWrite);     CloseHandle(PipeErrorsRead);     CloseHandle(PipeErrorsWrite);   end; end;

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

М	Обсуждение написание флудеров запрещено. Тема закрыта.