Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.28;
Скачать: CL | DM;

Вниз

Консольное приложение   Найти похожие ветки 

 
DillerXX ©   (2004-01-16 21:31) [0]

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


 
panov ©   (2004-01-16 21:33) [1]

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


 
DillerXX ©   (2004-01-16 21:51) [2]


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 это первое что пришло в голову, так что это не вирус. А в консольной проге те же самые модули, а ничего не работает... :( А за первое спасиба.


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


> ShellExecute(Application.Handle,


ShellExecute (HWND_DESKTOP,

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


 
DillerXX ©   (2004-01-17 13:50) [4]

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


 
DillerXX ©   (2004-01-17 13:55) [5]

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



Страницы: 1 вся ветка

Текущий архив: 2004.03.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.051 c
1-1077896458
Гиричев Руслан
2004-02-27 18:40
2004.03.28
Перемещение в TreeView


14-1078228066
TALLA
2004-03-02 14:47
2004.03.28
Почему из Execute при вызове DdeClientConv1.SetLink( a , b )


7-1071165120
~GaMeRd~
2003-12-11 20:52
2004.03.28
Все имена в таскбаре.


9-1062256096
GCreator
2003-08-30 19:08
2004.03.28
3D Adventure


1-1078731479
Hunter
2004-03-08 10:37
2004.03.28
Explorer