Могет такой вариант подойдет?| Код | type
TForm1 = class(TForm)
mm1: TMainMenu;
Menu1: TMenuItem;
ClickMe1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure ClickMe1Click(Sender: TObject);
private
end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure cons;
var s: string;
begin
repeat
write('>'); Readln(s);
Writeln(s + ' Ok');
until s = 'exit';
ExitThread(0);
end;
function GetConsoleWindow: THandle;
var
S: AnsiString;
C: Char;
begin
Result := 0;
Setlength(S, MAX_PATH + 1);
if GetConsoleTitle(PChar(S), MAX_PATH) <> 0 then
begin
C := S[1];
S[1] := '$';
SetConsoleTitle(PChar(S));
Result := FindWindow(nil, PChar(S));
S[1] := C;
SetConsoleTitle(PChar(S));
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
h, t: THandle;
rect: TRect;
begin
AllocConsole;
h := GetConsoleWindow;
Windows.SetParent(h, Handle);
SetWindowPos(h, 0, 0, -GetSystemMetrics(SM_CYCAPTION)-4, ClientWidth, ClientHeight, 0);
GetWindowRect(h, rect);
SetBounds(rect.Left, rect.Top, rect.Right - rect.Left,
rect.Bottom - rect.Top + GetSystemMetrics(SM_CYCAPTION)-3);
CreateThread(nil, 256, @cons, nil, 0, t);
end;
procedure TForm1.ClickMe1Click(Sender: TObject);
begin
ShowMessage('Меня кликнули!');
end; |
|
Ну вобщем я уже 2-й день спокойно спать немогу в нете дофига всякой чипухи валяется типо как от формы получить, от TApplication но всё это мне не подходит. Ладно подумал я и поставил старый добрый Turbo Pascal 7.1 нашол то что мне нужно, начал транслировать на свой Delphi 7 и что вы думаете?? Ха! Делфя меня потихоньку послала на тот самый забор где 3 буквы написаны. Вобщем ну нечего у меня путного так и не вышло, и я был-бы очень благодарен любой помощи со стороны жителей вашего форума.
