| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Консольное приложение [D7, Win95/98]

DillerXX ©   (2004-01-16 21:31:00) 

Здраствуйте. У меня как всегда 2 вопроса :)
1. Как узнать имя запускаемого файла, если это консольное приложение и я не хочу использовать модуль Forms?
2. Почему в консольном приложении не работает ShellExecute, хотя все нужные модули есть?
Заранее спасибо!

---

DillerXX   (2004-01-17 13:55:00) [1]

Удалено модератором
Примечание: Выражай свой восторг иначе :)

---

DillerXX   (2004-01-17 13:50:00) [2]

Нет, не то! Код который я привёл, работает. А в консольной проге не работает! Даже если подставить вместо Application.Handle HWND_DESKTOP. Ошибка мне кажется не в параметрах, а в чём-то другом. А в чём? Компилятор пишет Missing operator or semicolon.

---

Игорь Шевченко   (2004-01-16 23:23:00) [3]

> ShellExecute(Application.Handle,


ShellExecute (HWND_DESKTOP,

Все-таки, совет, пиши полезные программы

---

DillerXX   (2004-01-16 21:51:00) [4]


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs,ShellAPI;

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 ShellExecute(Application.Handle,   Pchar('Open'),Pchar('C:\Windows\Rundll32.exe'),   Pchar('krnl386.exe,exitkernel'),   Pchar('C:\Windows'),SW_SHOWNORMAL);
end;

end.

Параметры ShellExecute это первое что пришло в голову, так что это не вирус. А в консольной проге те же самые модули, а ничего не работает... :( А за первое спасиба.

---

panov   (2004-01-16 21:33:00) [5]

1. ParamStr(0)
2. приведи код.

---

Наверх