Stilet:

Примерно так:
Код:

program Project1;

{$APPTYPE CONSOLE}

uses windows, SysUtils;
var hk:HKEY;
begin
   if RegOpenKey(HKEY_CURRENT_USER,’\Identities’,hk)=ERROR_SUCCESS then
     RegSaveKey(hk,’c:\temp\hk.reg’,nil);
   RegCloseKey(hk);
{ TODO -oUser -cConsole Main : Insert code here }
end.

Тема на форуме

Sparky:

Вообщем вдруг кому-то пригодиться пишу что нужно сделать:
1. «Панели управления» и отмечаем чекбокс “Общий доступ к файлам и принтерам”
2. Воспользоваться компонентом “Одноранговая сеть”
3. включить “Служба общего доступа к файлам и принтерам”
4. выбрать Сетевой доступ: модель совместного доступа…”
5. отключить гостя
6. назначить права на доступ к папке, в доступе удалить “все”
7. на 2 машине в cmd ввести
Код:

net use x: \\имя_компа_где_лежит_папка\ имя_папки пароль_пользователя /user:имя_компа_где_лежит_папка\пользователь

Все

Тема на форуме

String path = System.Reflection.Assembly.GetExecutingAssembly().Location;

Тема на форуме

Tema_Crazzzy:

Доброго всем времени суток!
Я перепробовал кучу оболочек под С/С++ и остался доволен лишь парой, а скорее всего одним (Dev cpp) ….А какая оболочка по душе вам? И почему?

Интересная тема на форуме. Присоединится к обсуждению.

SERG1980

Вообще есть готовые компоненты в RXLib и JEDI(JvClipBoadrMonitor,JvClipBoadr Viewer) н оесли сами хотите то вот вам пример
1.ZIP

Тема на форуме

function IsNumber(s: string): Boolean;
var
   i, v: integer;
begin
   Val(s, v, i);
   IsNumber := (i=0);
end;

в VAL третий параметр для того, чтобы вернуть ошибочное начение – если он равен нулю, значит в s число, иначе – нет (в i величина смещения в стркое, где встретилась ошибка при попытке преобразовать строку в число).

Тема на форуме

Johnatan:

if ($_GET[‘fid’] == 1) header(’Location: http://www.example.com/’);

или

switch ($_GET[‘fid’]) {
case 1:
  header(’Location: http://www.example.com/’);
break;

case 2:
  header(’Location: http://www.example2.com/’);
break;

default:
  header(’Location: http://www.default.com/’);
}

Тема на форуме

Начинающий программист может столкнуться и с такой проблемой. Для этого у компонента TWebBrowser имеется свойство:

Webbrowser1.Navigate(edit1.text);

Тема на форуме

Stilet:

Могу предложить такое:

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, Grids, StdCtrls, ComCtrls;

type
   TForm1 = class(TForm)
     ListView1: TListView;
     procedure FormCreate(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure ListView1CustomDrawItem(Sender: TCustomListView;
       Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var b:TBitmap;
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var e,i:integer;
begin
   b:=TBitmap.Create;
   b.LoadFromFile(’D:\stasya_ru_2_big.bmp’);
   for i:=1 to 100 do begin
     with ListView1.Items.Add do begin
       Caption:=TimeToStr(now);
       for e:=1 to 100 do SubItems.Add(TimeToStr(now));
     end;
   end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   b:=nil;
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
   Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
const c=3;
var ARect:TRect;
begin
   DefaultDraw:=false;
   ARect:=Item.DisplayRect(drBounds);
   BitBlt(Sender.Canvas.Handle,ARect.Left+c,ARect.Top+c,ARect.Right-ARect.Left-c,
   ARect.Bottom-ARect.Top-c,b.Canvas.Handle,ARect.Left,ARect.Top,SRCCOPY);
end;

end.

Тема на форуме

Есть текстовый файл из 1000 строк. Там надо заменить слово “S1000″ на “S1200″, “Z100. на Z0.” , то есть многострочная замена.
Через что лучше и удобнее сделать такое?

var s:tstringlist;
begin
   s:=tstringlist.create;
   s.LoadFromFile(’файл’);
   s.text:=StringReplace(s.Text,’ S1000′,’ S1200′,[rfreplaceall]);
   s.SaveToFile(’файл’);
   FreeAndNil(s);
end.

Тема на форуме