小编use*_*585的帖子

实际存在时找不到系统文件 - "c:\ windows\system32\alg.exe".

我最近从Win 7 x86转移到x64,当我在x86上时,我没有遇到任何问题,尝试过Delphi 7和XE2.

我正在使用的代码:

if FileExists('c:\windows\system32\alg.exe') then
  ShowMessage('fe') else ShowMessage('fne');

试图获得管理员权限的文件+我的应用程序的所有权 - 同样的问题.

伙计们,检查一下x64 ..

function IsWow64Process(Handle:THandle; var IsWow64 : BOOL) : BOOL; stdcall; external 'kernel32.dll';

function IS64 : Boolean;
var
 xIS64 : Bool;
begin
 if IsWow64Process(GetCurrentProcess, xIS64) then
  Result := xIS64 else RaiseLastOSError;
end;

是否可以制作例如20%透明的TMemo或其他vcl组件？像TButton或TEdit？

谷歌搜索解决方案时我发现了这个:

从这里开始,我想,如果我在窗体上绘制图像(OnPaint)然后设置AlphaBlend ON,我可以实现这个效果但是没有成功,当整个窗体是透明的时,主要的效果是不能实现的,没有bg pic背后的备忘录.

我想要实现的效果:(在photoshop中完成)

这可能吗？如果是,怎么样？(我不要求任何人提供完整的src代码,只要文章或小例子,如果可能,或方向,不管我能理解的方式)

thnx注意.

我找到了解决方案,在带有图像背景的表单上创建了alphablended表单,然后在添加的表单上添加备忘录并将其与客户端对齐,而不是最好的方式,但它工作正常:

procedure TForm1.Button1Click(Sender: TObject);
var
 MM : TMyMemo; frm : TForm;
begin
 frm := TForm.Create(Form1);
 frm.BorderStyle := bsNone;
 frm.AlphaBlend := true;
 frm.AlphaBlendValue := 150;
 frm.Left     := Form1.Left + 90;
 frm.Top      := Form1.Top + 90;
 frm.Width    := 300;
 frm.Height   := 300;
 frm.Position := poDesigned;
 frm.Visible := true;

 MM             := TMyMemo.Create(frm);
 MM.Parent      := frm;
 MM.BorderStyle := bsNone;
 MM.ParentColor := False;
 MM.Align       := alClient;
 MM.Color       := clBlack;
 MM.Font.Color  := clWhite;
 MM.Font.Name   := 'Sylfaen';
 MM.Font.Size …

我搜索了一些例子，发现了这个：

var
  op: TMCI_Open_Parms;
  rp: TMCI_Record_Parms;
  sp: TMCI_SaveParms;
begin

  // Open
  op.lpstrDeviceType := 'waveaudio';
  op.lpstrElementName := '';
  if mciSendCommand(0, MCI_OPEN, MCI_OPEN_ELEMENT or MCI_OPEN_TYPE, cardinal(@op)) <> 0 then
    raise Exception.Create('MCI error');

  try

    // Record
    rp.dwFrom := 0;
    rp.dwTo := 10000;
    rp.dwCallback := 0;
    if mciSendCommand(op.wDeviceID, MCI_RECORD, MCI_TO or MCI_WAIT, cardinal(@rp)) <> 0 then
      raise Exception.Create('MCI error. No microphone connected to the computer?');

    // Save
    sp.lpfilename := PChar(ExtractFilePath(Application.ExeName) + 'test.wav');
    if mciSendCommand(op.wDeviceID, MCI_SAVE, MCI_SAVE_FILE or MCI_WAIT, cardinal(@sp)) <> 0 then
      raise Exception.Create('MCI …

我是一个特尔斐人,在这里喝醉了,试图弄清楚这个C++代码在这里但是不知道.. thanx

char sc[] = "\x31.....";


int main(int argc, char **argv)
{
    int (*f)();
    f = (int (*)())sc;
    (int)(*f)();
}

"sc"是一个字母