[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

нужно установить такие свойства объекта
skinnfile = path to skinfile
active = true
builtin = true

 

можно так:

Code:

procedure _Click(wnd: HWND; caption: string);
var
  TheChildHandle: HWND;
begin
  TheChildHandle := FindWindowEx(wnd, 0, nil, PChar(caption));
  SendMessage(TheChildHandle, WM_LButtonDown, 1, 1);
  SendMessage(TheChildHandle, WM_LButtonUP, 1, 1);
end;

[COLOR=RoyalBlue]использование:[/COLOR]

procedure TForm1.Button1Click(Sender: TObject);
var
 h:HWND;
begin
 h:=FindWindow(nil,'Form1');
 _Click(h,'Enter');
end;

//Ищет окно с заголовком [B]Form1[/B] и нажимает в нем на кнопку с кепшном [B]Enter[/B] =)

 

2 Nighware

Там просто ошибка! Надо : SetWindowRGN))) А пользоваться так:

Code:

procedure TForm1.FormCreate(Sender: TObject);
 var
   Bmp: TBitmap;
 begin
   Bmp := TBitmap.Create;
   try
    Bmp.LoadFromFile('C:\2.bmp');
     SetWindowRGN(Form1.Handle, BitmapToRegion(bmp,clwhite), True);
   finally
     Bmp.Free;
   end;
end;

 

config.ini :

PHP:

[Combo1]
line1=line
[Combo2]
line2=line
[Combo3]
line3=line

и сам код в OnCreate кинь

PHP:

var
 Ini: Tinifile;
begin
 Ini:=TiniFile.Create(ExtractFilePath(paramstr(0))+'config.ini');
 ComboBox1.Text := ini.ReadString('Combo1','line1',Combobox1.Text);
 ComboBox2.Text := ini.ReadString('Combo2','line2',Combobox2.Text);
 ComboBox3.Text := ini.ReadString('Combo3','line3',Combobox3.Text);
end;

// писал прямо в формочке на форуме

 

[Combo1]
Count=2
Combo0=aaa
Combo1=aaa
Combo2=aaa

Считываешь параметр Count и потом в цикле все остальное ..

 

у меня такой код.когда я добовляю три майла в listbox отсылает на все три потому что стоит значение nitem := 0 to 2 do добовляю 4 емайла вызалиет ошибка как сделать чтоб при добовление строк добовлялось в значение nitem := 0 to сюда

 

Nitem := 0 to listbox1.items.count do

Как то так попробуй

 

Nitem := 0 to listbox1.items.count-1 do

 

Спасибо!Вот еще один вопрос как из мемо построчно перенести текст в listbox?

 

for i := 0 to ListBox1.items.Count-1 do

memo1.lines.add(ListBox1.items);

 

делаю так не переносит


Помойму тут наоборот с listbox в memo

 

Code:

  for i := 0 to Memo1.Lines.Count - 1 do
    ListBox1.Items.Add(Memo1.Lines.Strings[i]);

 

где можно посмотреть таблицу экспорта ntdll.dll в синтаксисе паскаля?

 

Теги: ms-rem, NativeApi.pas
---
http://www.wasm.ru/pub/21/files/ring0.rar

 

и еще вопрос: как вытащить заранее внедренную dll из процесса. Слышал, что нужено в его контексте выполнить FreeLibrary, это так? если так, то можно синтаксис FreeLibrary?

 

Если из своего процесса:

Code:

function KillDll(aDllName: string): Boolean;
 var
   hDLL: THandle;
   aName: array[0..10] of char;
   FoundDLL: Boolean;
 begin
   StrPCopy(aName, aDllName);
   FoundDLL := False;
   repeat
     hDLL := GetModuleHandle(aName);
     if hDLL = 0 then
       Break;
     FoundDLL := True;
     FreeLibrary(hDLL);
   until False;
 end;

Если для чужого, то создавай удаленный поток ..

http://msdn.microsoft.com/en-us/library/ms683152(VS.85).aspx

 

Ребят, как в Турбо Паскаль 7.0 писать на русском?
Тоесть смотрите например:

Code:

program test;
const
   text='Не важно';
begin
   writeLn(text);
end.

Так вот, в самой программе когда переставляешь на рус.язык, оно просто не переставляеться, точнее переставляеться, но пишеться всеравно на ENG.

Ну так как же можно вот эту часть "тела" программы: " 'Не важно' " - сделать на русском/украинском?!

 

В делфи вот так:

Code:

procedure MyWriteln(const S: string);
var
  NewStr: string;
begin
  SetLengtn(NewStr, Length(S));
  CharToOem(PChar(S), PChar(NewStr));
  Writeln(NewStr);
end;
...
MyWriteln('Русс.яз');

В паскале должно быть по аналогии ..

 

Для паскаля драйвер должен быть загружен, например, rk.com =))

 

Переводи с помощью штирлица в дос кодировку и вставляй в исходник, с помощью блокнота.